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=xxxxxx'end;redln(y);z:=rez(x,y);writeln(z);.....