program z6_35;
const n=10;
var a:array[1..n] of integer;
g:integer;i:integer;
procedure max(var c:integer );
begin
c:=a[1];
for i:=1 to n do if c end;
begin
randomize;
for I:=1 to n do begin a[i]:=random(100);
write(a[i]:3);end;

max(g);
writeln;
writeln(g);
end.