fork download
copy 
  1. program LR2IF;
  2.  
  3. uses
  4.   SysUtils;
  5.  
  6. var n: Integer;
  7.  
  8. begin
  9.   Write('Введите значение месяца: ');
  10.   Readln(n);
  11.   case n of
  12.     1:  Writeln('Январь');
  13.     2:  Writeln('Февраль');
  14.     3:  Writeln('Март');
  15.     4:  Writeln('Апрель');
  16.     5:  Writeln('Май');
  17.     6:  Writeln('Июнь');
  18.     7:  Writeln('Июль');
  19.     8:  Writeln('Август');
  20.     9:  Writeln('Сентябрь');
  21.     10: Writeln('Октябрь');
  22.     11: Writeln('Ноябрь');
  23.     12: Writeln('Декабрь')
  24.     else Writeln('Введите число от 1 до 12')
  25.   end;
  26.   Readln;
  27. end.
Success #stdin #stdout 0s 5260KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Введите значение месяца: Введите число от 1 до 12
https://ideone.com/RLNzBv
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!