составьте программу для вычисления значения выражения a=3+(y-1)^2/1+x^2y-cosx

Задача была сотворена на платформе PascalABC

Program abc;

var a,x,y:real;

begin

writeln('Введите значение x ');

readln(x);

writeln('Введите значение y ');

readln(y);

a:=(3+sqr(y-1))/sqr(1+x)* абс(y-cos(x));

Writeln(x);

End.

(Вроде так, если что-то - не так поправьте)