с клавиатуры вводится два числа требуется найти модуль минимального значения
var
a, b : real;
begin
read (a, b);
if a > b then write (abs (b)) else write (abs (a));
end.