program maarahim;
uses crt;
var i:integer;
a:array of integer;
b:array of integer;
c:array of integer;
d:array of integer;
begin
clrscr;
for i:=1 to 20 do
begin
readln(a);
end;
writeln('The next array');
for i:=1 to 20 do
begin
readln(b);
end;
writeln('the next array');
for i:=1 to 20 do
begin
readln(c);
end;
for i:=1 to 20 do
begin
d:=a;
end;
for i:=21 to 40 do
begin
d:=b;
end;
for i:=41 to 60 do
begin
d:=c;
end;
writeln('In order to see the array click enter');
Readln;
writeln('The Array:');
for i:=1 to 60 do
begin
writeln(d);
delay(5540);
end;
readln;
end.