Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  5
Language: PASCAL
Code:
progam lab;
var
 m: integer;
begin
 write('Введите номер месяца');
readln(m);
case m of
 1,2,12:writeln('это зима')
 3,4,5:writeln('это весна')
 6,7,8:writeln('это лето')
 9,10,11:writeln('это осень')
 else writeln('неверный номер');
 end;
end.
Comments: