program hhh;
uses crt;
const m=5; n=5;k=5;
var a:array[1..m] of integer;
b:array[1..n] of integer;
c:array[1..k] 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 n do begin
b[j]:=random(50)-25 ;
write(b[j]:7);
end;
writeln ;
{s:=0;}

for p:=1 to k do begin
c[p]:=a[p]+b[p];
write(c[p]:7);
end;
writeln ;
{write('c[k]= ',c[k]); }
readln;
END.