program hhh;
uses crt;
const m=5;
var a:array[1..m] of integer;
b:array[1..m] of integer;
c:array[1..m] of integer;
i,p,j:integer; r,s:integer;
BEGIN
randomize;
clrscr;
for i:=1 to m do begin
a[i]:=random(50)-25 ;
write(a[i]:7);
end;
writeln ;
for j:=1 to m do begin
b[j]:=random(50)-25 ;
write(b[j]:7);
end;
writeln ;
s:=0;
for i:=1 to m do begin
if a[i]>b[i] then c[i]:=a[i]
else c[i]:=b[i];
write(c[i]:7);
end;
writeln ;
{write('c[k]= ',c[k]); }
readln;
END.