Задачи паскаль, помогите пожалуйста кто. 1, Напишите программу, реализующую следующие вычисления. Дан номер месяца — целое число в диапазоне1–12, введенное с клавиатуры (1 — январь, 2 — февраль и т. д.). Вывести название соответствующего времени года («зима», «весна», «лето», «осень»).
1. var n: integer; begin repeat writeln('Введите номер месяца [1..12]'); readln(n); until n in [1..12]; case n of 1: writeln('January'); 2: writeln('February'); 3: writeln('March'); 4: writeln('April'); 5: writeln('May'); 6: writeln('June'); 7: writeln('July'); 8: writeln('August'); 9: writeln('September'); 10: writeln('October'); 11: writeln('November'); 12: writeln('December'); end; end.
