Функция. напишите программу для нахождения наибольшего числа из 5 чисел. Для сравнения двух чисел создать соответствующую функцию

Function Max (a, b:real) : real;

begin

if a>b then Max:=a

else Max:=b

end;

var

a, b, c, d, e, m:real;

i:integer;

begin

Writeln ('Введите 5 чисел: ') ;

Read (a, b, c, d, e) ;

m:=Max (a, b) ;

m:=Max (m, c) ;

m:=Max (m, d) ;

m:=Max (m, e) ;

Writeln ('Максимум: ', m)

end.

Пример

Введите 5 чисел:

2.3 4 - 5.16 0 0.087

Максимум: 4