Дано пять чисел. определить максимальное из них. определить функцию, находящую максимум из двух различных чисел. мне нужно сделать эту через процедуру и функцию. я сделал для функции вот так: var a: array[1..5]of integer; i, j,max: integer; function f(a, b: integer): integer; begin if a> b then result: =a else result: =b; end; begin for i: =1 to 5 do begin a[i]: =random(10); end; writeln; max: =a[1]; for i: =1 to 5 do for j: =i+1 to 5 do if f(a[i],a[j])> max then max: =f(a[i],a[j]); writeln('max=',max); end. а училка говорит что здесь массивы вообще не нужны, и то что функция у меня в не используется. вопрос как сделать так чтобы функция использовалась. не могу понять как сделать по другому. !