Question

var x,y,z:real;
begin
write ('x=');readln(x);
write ('y=');readln(y);
z:=abs(x)-abs(y)/1+abs(x*y);
writeln('z=',z);
end.
какую подпрограммы-процедуру можно сделать?

Answer 1

Подпрограмму
procedure rez(x,y:real):real;
begin
... rez=xxxxxx'
end;

redln(y);
z:=rez(x,y);
writeln(z);
.....