program StampaFigure;
var
ch : char;
procedure StampaQuadrato;
begin
writeln('QUESTO E'' UN QUADRATO')
end;
procedure StampaTriangolo;
begin
writeln('QUESTO E'' UN TRIANGOLO')
end;
procedure StampaSaluto;
begin
writeln('CIAO :-)')
end;
begin
repeat
writeln;
writeln('*** IMMETTI UN CARATTERE A SCELTA FRA I SEGUENTI ***');
writeln('*** Q: stampa un quadrato');
writeln('*** T: stampa un triangolo');
writeln('*** F: per terminare il programma');
writeln;
readln(ch);
case ch of
'Q', 'q' : StampaQuadrato;
'T', 't' : StampaTriangolo;
'F', 'f' : StampaSaluto;
end;
until (ch = 'f') or (ch = 'F')
end.