таблицы истинности информатика

var a: integer;

begin

writeln('Введите № месяца');

readln(a);

case a of

1: begin writeln('Январь Зима'); end;

2: begin writeln('Февраль - Зима'); end;

3: begin writeln('Март - Весна'); end;

4: begin writeln('Апрель - Весна'); end;

5: begin writeln('Май - Весна'); end;

6: begin writeln('Июнь - Лето'); end;

7: begin writeln('Июль - Лето'); end;

8: begin writeln('Август - Лето'); end;

9: begin writeln('Сентябрь - Осень'); end;

10: begin writeln('Октябрь - Осень'); end;

11: begin writeln('Ноябрь - Осень'); end;

12: begin writeln('Декабрь - Зима'); end;

 else  writeln('Ошибка. Введенный номер не является номером какого-либо месяца');

 end;

 readln

 end.

Объяснение: