Тема: Допоможіть виправити помилку! Буду вдячний!!!
Программа написана в Delphi
Program kyrs1;
Const
a=3.5;
x=3.4;
a2=1.1;
A1=true;
B=true;
C=false;
X1=1.5;
Y=2.5;
Var
ch,zn,y1:real;
z:boolean;
arccos:real;
log:real;
Begin
ch:=ArcCos (a-pi)+sqr(sin(3))*a+exp(2*a)-sqrt(a*x+0.8);
zn:=6.5*10(sqr(5))*a*(sqr(2))-ln(a)+0.43*10(sqr(-4.5))(x-pi);
Y1:=log(ch/zn);
WriteLn ('y=;Y1');
z:=x(sqr(2))+y(sqr(2))<4 (not-(A1 or B or C))(not(X1<Y))or(Y>0.5);
WriteLn ('z=;z2');
ReadLn;
end.