Помогите с заданием в Pascal

Задание Вычислить и вывести на экран значения двух переменных и составить блок схему
Необходимо дописать код или переделать и составить блок схему. Не могу понять, в чем ошибка

Program zad1;
Uses Crt;
var
x, y, S, g: Real;
begin
Writeln('Введите x,y');
Read(x, y);
S := 1 + x + sqr(x) / 1 * 2 + exp(ln(x)*3) / 1 * 2 * 3 + exp(ln(x)*4) / 1 * 2 * 3 * 4;
g:=(x)*(sin) * (sqr(x)) +(sqr(cos))+x;
Writeln('x= ', x:6:3, 'y= ', y:6:3);
end.

Writeln('s=',S:0:3,' ', 'y= ',g:0:3); 'g=',не у.

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018//Внимание! Если программа не работает, обновите версию!beginvar (x,y):=readreal2('Введите x,y');var S:=1+x+x*x/1*2+x**3/2*3+x**4/6*4;var g:=x*sin(x**3)+cos(y)**2;Writeln('s=',S:0:3,' ', 'y= ',g:0:3);end.Как в школе учат :->Program zad1;varx, y, S, g: Real;beginWriteln('Введите x,y');Read(x, y); S:=1+x+x*x/1*2+x**3/2*3+x**4/6*4; g:=x*sin(x**3)+cos(y)**2;Writeln('s=',S:0:3,' ', 'y= ',g:0:3);end.