Ответ:
M: integer;
S: string;
begin
write('Введите число : ');
readln(M);
if (M=1) or (M=2) or (M=12) then S:= 'зима' ;
if (M=3) or (M=4) or (M=5) then S:= 'весна' ;
if (M=6) or (M=7) or (M=8) then S:= 'лето' ;
if (M=9) or (M=10) or (M=11) then S:= 'осень' ;
if (M<1) or (M>12) then S:= 'нет такого числа,придурок!’;
writeln(M,' _месяц ', S );
en