Не могу найти ошибку в программе - Free Pascal

Формулировка задачи:

не могу разобраться и найти ошибку, до "3" раздела, ошибок не было, наверное в знаках ошибки или в переменных, но я в этом плохо разбираюсь. Прошу вашей помощи, кто хорошо разбирается
Program LabRab3;
const a=-0.5;b=2;z=0.78;
Var N,C,M,W,h,j,p:integer;t,x,y,k:real;
Begin;
writeln('введите номер задачи');
readln (N);
CASE N OF
1:begin
writeln('введите t');
readln (x);
if t>2 then y:=a*(sqr(t))+ln(x) else
if t<=2 then y:=(exp(a*t))*cos(b);
writeln('значение y=',y:10:5);
readln
end;
2:begin
k:=(2*sin(z))-sqrt(3*abs(z));
writeln('k=' ,k:10:5);
readln
end;
3:begin
M:=17;
N:=3;
W:=trunc(M/N);
writeln ('17 div 3 = ',W);
W:=M-N*trunc(M/N);
writeln (17 mod 3 = ',W);
W:=M-N
writeln (17-3 =',W);
readln
end.
end.
END

Код к задаче: «Не могу найти ошибку в программе - Free Pascal»

textual
Program Z1;
const a=-0.5;b=2;z=0.78;
Var N,C,M,W,h,j,p:integer;t,x,y,k:real;
Begin
writeln('введите номер задачи');
readln (N);
CASE N OF
1:begin
  writeln('введите t');
  readln (x);
  if t>2 then y:=a*(sqr(t))+ln(x) else
  if t<=2 then y:=(exp(a*t))*cos(b);
  writeln('значение y=',y:10:5);
  readln
  end;
2:begin
   k:=(2*sin(z))-sqrt(3*abs(z));
   writeln('k=' ,k:10:5);
   readln
  end;
3:begin
   M:=17;
   N:=3;
   W:=trunc(M/N);
   writeln ('17 div 3 = ',W);
   W:=M-N*trunc(M/N);
   writeln ('17 mod 3 = ',W);
   W:=M-N;
   writeln ('17-3 = ',W);
   readln
  end;
end;
end.

5   голосов, оценка 4.200 из 5


СОХРАНИТЬ ССЫЛКУ