Дано натуральное k (от 1 до 12). По номеру месяца k определить время года — Pascal(Паскаль)

program _02;

uses Crt;

var
  k: integer;

begin
  write('K: ');
  readln(k);
  if (k = 12) or (k = 1) or (k = 2) then
    write('Zima')
  else if (k = 3) or (k = 4) or (k = 5) then
    write('Vesna')
  else if (k = 6) or (k = 7) or (k = 8) then
    write('Leto')
  else
    write('Osen');
  readkey;

end.