fork download
copy 
  1. program LR2IF;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   SysUtils;
  7.  
  8. var n: Integer;
  9.  
  10. begin
  11.   Write('Введите значение месяца: ');
  12.   Readln(n);
  13.   case n of
  14.     1:  Writeln('Январь');
  15.     2:  Writeln('Февраль');
  16.     3:  Writeln('Март');
  17.     4:  Writeln('Апрель');
  18.     5:  Writeln('Май');
  19.     6:  Writeln('Июнь');
  20.     7:  Writeln('Июль');
  21.     8:  Writeln('Август');
  22.     9:  Writeln('Сентябрь');
  23.     10: Writeln('Октябрь');
  24.     11: Writeln('Ноябрь');
  25.     12: Writeln('Декабрь')
  26.     else Writeln('Введите число от 1 до 12')
  27.   end;
  28.   Readln;
  29. end.
Success #stdin #stdout 0s 5280KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Введите значение месяца: Введите число от 1 до 12
https://ideone.com/fjUaNx
language:
Pascal (fpc 3.0.4)
created:
7 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!