Что делать если выдает ошибку? Пишет: встречено \"Begin\" а ожидалось выражение.
program Func;

var
x, y: real;integer:

Begin
ReadLn(x);
(abs(2.x - 5) + sqr(b)).sqr(x);
Writeln(\'y(x)=\', y);
end.