Найдите разность максимального и минимального из четырёх чисел.

begin 
var a:=ReadArrReal('Введите 4 числа:',4); 
Writeln('Разность наибольшего и наименьшего: ',a.Max-a.Min)
end.