Ну а если у тебя не PascalABC.NET, а Free Pascal или Turbo Pascal то на скринах есть несколько вариантов реализации это программы, на первой через массив, на второй через цикл For и на третьей просто перебором условий. Так что выбирай кокой тебе больше подходит
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('min=',ReadSeqReal('Введите 5 чисел:',5).Min)
end.
Пример
Введите 5 чисел: 3.18 0 -1.15 -2.6 1.15
min=-2.6