напишите программу для вычисления значения арифметических выражений.
Помогите пожалуйста))​

var a,z,x,y:real;

begin

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

readln(a);

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

readln(z);

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

readln(y);

a:=(1+z)*((x+(y/(sqr(x)+4)))/(2+(1/(sqr(x)+4))));

writeln('a = ',a);

end.