fork download
copy 
  1. Program lab_1_2;
  2. Var
  3.   month: integer;
  4. Begin
  5.   month := 5;   { здесь укажите нужный номер месяца }
  6.   Case month of
  7.     1,2,3,4,5,6: writeln('1');
  8.     7,8,9,10,11,12: writeln('2');
  9.   end;
  10.   Readln;
  11. End.
Success #stdin #stdout 0.01s 5292KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1
https://ideone.com/YK6dAW
language:
Pascal (fpc 3.0.4)
created:
1 day 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!