По номеру месяца определите сезон

Program Sezon;

Var N: integer;

Begin

writeln(‘введите номер месяца’);

Readln(N);

CASE N OF

1,2,12: writeln(‘зима’);

3,4,5: writeln(‘весна’);

6..8: writeln(‘лето’);

9..11: writeln(‘осень’)

ELSE writeln(‘нет такого месяца ’)

END

END.

Пример:

Program Lab1_Primer1;

Var x, y, Z, min, U: real;

k: integer;

Function f1:real;

Begin

f1:=(ln(x+3)-sqr(x)-sin(x+pi/5))/cos(y);

End;

Function f2:real;

Begin

f2:=sqrt(abs(y-1))+sin(x-3)/cos(x-3)+exp(2.4)

End;

{-------------main------------}

Begin

K:=0;

Read(x,y);

If (x<=-2) Then

if (x+3>0)and(cos(y)<>0) then Z:=f1

else k:=1

Else

if cos(x-3)<>0 then Z:=f2

else k:=2;