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

Question

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

Answer 1

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