Напишите программу, которая получает с клавиатуры номер месяца и выводит название соответствующего ему время года или сообщение об ошибке. пример: введите номер месяца: 5 . в программе ! не использовать case
begin write('Введите номер месяца - '); readln(a); if (a <= 0) or (a > 12) then Error else if (a = 12) or (a = 1) or (a = 2) then write('Зима') else if (a = 3) or (a = 4) or (a = 5) then write('Весна') else if (a = 6) or (a = 7) or (a = 8) then write('Лето') else if (a = 9) or (a = 10) or (a = 11) then write('Осень'); end.
var
a: integer;
procedure Error;
begin
write('ERROR');
exit;
end;
begin
write('Введите номер месяца - ');
readln(a);
if (a <= 0) or (a > 12) then
Error
else
if (a = 12) or (a = 1) or (a = 2) then
write('Зима')
else
if (a = 3) or (a = 4) or (a = 5) then
write('Весна')
else
if (a = 6) or (a = 7) or (a = 8) then
write('Лето')
else
if (a = 9) or (a = 10) or (a = 11) then
write('Осень');
end.