Паскаль.


Написать функцию, находящую
максимальное из двух вещественных чисел и с её помощью определить максимальное
из 4-х вводимых с клавиатуры вещественных чисел.

Готовоfunction max(a1, a2:integer):integer;beginif a1>a2 then max:=a1 else max:=a2;end;vara, b, c, d: integer;beginreadln(a, b, c, d);write(max(max(a, b), max(c, d)));end.Если есть какие-то вопросы или ещё нужна помощь, в ЛС.