Изучайте языки программирования - это интересно.
var x,y,z,a:real;
begin
writeln('Введите значения X,Y,Z:');
readln(x,y,z);
a:=(x+y-z)/(x*2+2);
writeln('Ответ:',a:4:2);
end.
var x,y,z,a:real;
begin
writeln('Введите значения X,Y,Z:');
readln(x,y,z);
a:=(5+2*x-z)/(3+y*2);
writeln('Ответ:',a:4:2);
end.