Напишите программу по алгоритму:
Нач х=3 у=-9 если (х>у) то (z=x-y иначе z=y-x) вывод (z) кон алг
ИЛИ
Нач х,у если (х>у) то (z=x-y иначе z=y-x) вывод (z) кон алг

var x,y,z: real;

begin

writeln('Введите значение x:');

readln(x);

writeln('Введите значение y:');

readln(y);

if x>y then

z:=x-y

else

z:=y-x;

writeln('z = ',z);

end.