Question

С клавиатуры вводятся два числа x и y.
Найти разновидность z между большим и меньшим из них

Answer 1

var x,y,z:integer;
begin
write('Введите два числа: ');
readln(x, y);
if x>y then z:=x-y;
if x<y then z:=y-x;
if x=y then z:=0;
writeln(z);
end.