Найдите ошибку плииизз
program PR1;
var a,b,y,r,d,q,x:Real;
begin
writeln ('введи значения a,b,y,r,d,q');
readln (a,b,y,r,d,q);
x:= cos(exp(a)*ln(y))-sin(exp(b*8*q)*ln(r))/(exp(2*a*b)*ln(d))+18.31;
writeln('X=',X);
end.

Program z2;

Var a, b, s: real;

Begin

Writeln ('Введи катеты');

Readln (a, b) ;

s:=1/2*a*b;

Writeln ('s=', s) ;

Readln;

End.

Введи катеты

5 10

s=25