Program poligono;
Uses crt;
Var n:integer;
poligono:string;
Begin
Writeln('Inserisci numerolati : ');
Rreadln(n);
if n<3 then
Writeln('Devi inserire un numero maggiore di tre')else
begin
case n of
3: poligono:='Triangolo';
4: poligono:='Rettangolo';
5: poligono:='Pentagono';
6: poligono:='Esagono';
end;
Writeln('Il poligono è un ',poligono);
end;
end.

Per i mesi è uguale!
Ciauz