Пример 1 стр 101

var a, x, y, z: real;
begin
write('введите y = ');
read(y);
write('введите x = ');
read(x);
write('введите z = ');
read(z);
a:=(x+y-z) / (x *x + 2);
writeln(' результат равен  ', a);
end.