Question

Составить программу, которая по данному числу (1-12) выводит название соответствующего ему месяца на английском языке.

Answer 1

begin

 var numberMonth := ReadInteger('Введите номер месяца:');

 case numberMonth of

   1: Print('Январь');

   2: Print('Февраль');

   3: Print('Март');

   4: Print('Апрель');

   5: Print('Май');

   6: Print('Июнь');

   7: Print('Июль');

   8: Print('Август');

   9: Print('Сентябрь');

   10: Print('Октябрь');

   11: Print('Ноябрь');

   12: Print('Декабрь')

 else

   Print('Такого месяца нет!');

 end;

end.