Question

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

Answer 1

var x,y,z :integer;
begin
read (x,y);
if x>y then z:=x-y else z:=y-x;
write (z);
end.