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