uses crt;
var x,y,z:array[1..100] of integer;
k,i,s,s1:integer;
sr,sr1:real;
begin
k:=0;
for i:=1 to 5 do begin
x[i]:=random(10);
y[i]:=random(10);
end;
writeln('Massiv x');
for i:=1 to 5 do
write(x[i]:4);
writeln;
writeln('Massiv y');
for i:=1 to 5 do
write(y[i]:4);
writeln;
for i:=1 to 5 do
s:=s+x[i];
sr:=s/5;
for i:=1 to 5 do
s1:=s1+y[i];
sr1:=s/5;
for i:=1 to 5 do
if x[i]>sr1 then begin k:=k+1; z[k]:=x[i]; end;
for i:=1 to 5 do
if y[i]>sr then begin k:=k+1; z[k]:=y[i]; end;
writeln('Massiv z');
for i:=1 to k do
write(z[i]:4);
end.