daily pastebin goal
36%
SHARE
TWEET

Untitled

a guest Feb 13th, 2018 46 in 5 days
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Program p4;
  2. Var N: Integer;
  3. Begin
  4.     WriteLn('Введите номер месяца');
  5.     ReadLn(N);
  6.     Case N Of
  7.         1, 2, 12: WriteLn('Зима');
  8.         3, 4, 5: WriteLn('Весна');
  9.         6, 7, 8: WriteLn('Лето');
  10.         9, 10, 11: WriteLn('Осень');
  11.         Else WriteLn('Неверный месяц')
  12.         end;
  13. End.
RAW Paste Data
Top