program days;
uses crt;

{--------------------------------------------------------------------------
This program will tell you the number of days in a given month.

                        by 

--------------------------------------------------------------------------}


VAR month,y:integer;

begin
repeat
clrscr;

writeln ('Hello. This program tells you how many days are in a given month');
write ('Please enter the number of the month you''ve chosen (1-12) --->  ');
readln (month);
writeln;
writeln;
y := 1;
case month of
1 : writeln ('There are 31 days in January');
2 : writeln ('There are 29 days in Febuary, unless it''s a leap year');
3 : writeln ('There are 31 days in March');
4 : writeln ('There are 30 days in April');
5 : writeln ('There are 31 days in May');
6 : writeln ('There are 30 days in June');
7 : writeln ('There are 31 days in July');
8 : writeln ('There are 31 days in August');
9 : writeln ('There are 30 days in September');
10 : writeln ('There are 31 days in October');
11 : writeln ('There are 30 days in November');
12 : writeln ('There are 31 days in December');
else
y := 0;
end;
until y = 1;

readln;

end.