var
obdobie: string;
cislo : integer;
begin
cislo:= strtoint (edit1.Text);
case cislo of
3,4,5 : obdobie := 'JAR';
6,7,8 : obdobie := 'LETO';
9,10,11 : obdobie := 'JESEN';
12,1,2 : obdobie := 'ZIMA';
else
memo1.Lines.add ('zly mesiac');
end;
memo1.Lines.add (obdobie);
end;
end.