Program vrem_goda;
uses crt; 
var mesyac,temp : integer;
begin
clrscr;
writeln ('Введите месяц: ');
readln (mesyac);
if mesyac=1 then 
writeln (mesyac, ' месяц - это зима');
 if mesyac=2 then 
writeln (mesyac, ' месяц - это зима');
 if mesyac=3 then 
writeln (mesyac, ' месяц - это весна'); 
if mesyac=4 then 
writeln (mesyac, ' месяц - это весна');
 if mesyac=5 then 
writeln (mesyac, ' месяц - это весна'); 
if mesyac=6 then 
writeln (mesyac, ' месяц - это лето'); 
if mesyac=7 then 
writeln (mesyac, ' месяц - это лето'); 
if mesyac=8 then 
writeln (mesyac, ' месяц - это лето'); 
if mesyac=9 then 
writeln (mesyac, ' месяц - это осень');
 if mesyac=10 then 
writeln (mesyac, ' месяц - это осень');
 if mesyac=11 then 
writeln (mesyac, ' месяц - это осень');
 if mesyac=12 then 
writeln (mesyac, ' месяц - это зима'); 
end.