Необходимо сделать первое упражнение!

var x, y, z, a:real;
begin
readln(x, y, z);

a:=(x+y-z)/(x*x+2);
writeln('a= ', a);

a:=5*((2*x-z)/(3+y*y))
writeln('a= ', a);

a:=(1+z)( (...долго писать формулу :)

writeln('a= ', a);
end.