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