Ввести номер месяца и вывести название времени года. Пример: Введите номер месяца 4 веснаНапишите программу на языке паскаль

program zz1;

var s, k:integer; / / задаем переменные целого типа

begin

writeln (' введите номер месяца ');

read (k);

if k = 1 then write (' Зима ');

if k = 2 then write (' Зима ');

if k = 3 then write (' Весна ');

if k = 4 then write (' Весна ');

if k = 5 then write (' Весна ');

if k = 6 then write (' Лето ');

if k = 7 then write (' Лето ');

if k = 8 then write (' Лето ');

if k = 9 then write (' Осень ');

if k = 10 then write (' Осень ');

if k = 11 then write (' Осень ');

if k = 12 then write (' Зима ');

end.