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. какую подпрограммы-процедуру можно сделать?

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

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