//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var (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;
var
x, y, S, g: Real;
begin
Writeln('Введите 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.