Function Max (x: massiv): integer; var i,m: integer; begin m:=x[1]; for i:=2 to N do if x [ i ] > m then m:=x [ i ]; Max:=m; end;
Function Max (x: massiv): integer;
var i,m: integer;
begin
m:=x[1];
for i:=2 to N do
if x [ i ] > m then
m:=x [ i ];
Max:=m;
end;