Question

Составить программу в Паскале

Answer 1

Var n:integer;
Begin
Read(n);
Case n of
1,3,5,7,8,10,12:n:=31;
4,6,9,11:n:=30;
2:n:=28;
else n:=0;
End;
Write(n)
End.