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); .....