Pascal. Задание: вывести на экран наименьшее из пяти чисел

begin
  Writeln('min=',ReadSeqReal('Введите 5 чисел:',5).Min)
end.


Введите 5 чисел: 3.18 0 -1.15 -2.6 1.15
min=-2.6