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
не верный ввод