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.