Program v7_7;
uses crt;
function max(a,b:integer):integer;
begin
if a>b then max:=a else max:=b;
end;
const n=3; k=3; m=3;
var x,y,z,c:array [1..n] of integer;
      i:integer;
BEGIN
clrscr;
randomize;
for i:=1 to n do
 begin
   x[i]:=random(50); write(x[i]:4);
 end;writeln; writeln;
for i:=1 to n do
 begin
   y[i]:=random(50); write(y[i]:4);
 end;writeln; writeln;
for i:=1 to n do
 begin
  z[i]:=random(50); write(z[i]:4);
 end;writeln; writeln;
for i:=1 to n do
 begin
   c[i]:=max(max(x[i],y[i]),z[i]); write(c[i]:4);
  end;writeln;
end.