PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrReal('Введите 4 числа:',4);
Writeln('Разность наибольшего и наименьшего: ',a.Max-a.Min)
end.
Пример
Введите 4 числа: 5.18 10 -2 0
Разность наибольшего и наименьшего: 12