Var A:integer; Begin Read(A); A:= A mod 12; if (A>=0)and(A<3) then Write('Зима'); if (A>2)and(A<6) then Write('Весна'); if (A>5)and(A<9) then Write('Лето'); if (A>8)and(A<=11) then Write('Осень'); End. Для чего нужно "A:= A mod 12" ??? Срочно

var n: integer;
    s: array[0..3] of string = ('зима','весна','лето','осень');
begin
  write('месяц: ');  readln(n);
  if n in [1..12] then
  begin
    n:=n mod 12;
    writeln(s[n div 3]);
  end
  else writeln('не верный ввод');
end.

месяц: 12
зима

месяц: 15
не верный ввод