вот текст программы, скобки исправила. в общем, эта программа должна вычислить величины у(х) и F(у):
uses crt;
var
a, b, x, y: real;
begin
clrscr;
writeln('ўўҐ¤ЁвҐ §**зҐ*ЁҐ X');
readln(x);
writeln('ўўҐ¤ЁвҐ §**зҐ*ЁҐ A');
readln(a);
a:=exp(sin(x)/Abc(x)*Ln(2);
y:=sqrt(sqrt(8*exp(2*ln(x))-6*x+1))/arctan1/sqrt(2x+1);
writeln('§**зҐ*ЁҐ y'),y:3:3;
readkey;
end.