Question

с клавиатуры вводится два числа требуется найти модуль минимального значения

Answer 1

var

  a, b : real;

begin

  read (a, b);

  if a > b then write (abs (b)) else write (abs (a));

end.