PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!
begin
var (x,y):=ReadReal2('Введите два числа:');
Writeln('Max=',Max(x,y),', min=',Min(x,y))
end.
Пример
Введите два числа: 4.13 -2
Max=4.13, min=-2