program z7125;
uses crt;const n=6;
type m=array[1..n] of integer;
t=array[1..n] of integer;
var i,j,k,z,s:integer;a:m;b:t;
BEGIN
clrscr;
randomize;
for i:=1 to n do begin
a[i]:=random(50);
write(a[i]:7);
end;
writeln;
k:=n;
s:=1;
for i:=1 to (n div 2) do
begin
b[s]:=a[i];
inc(s);
b[s]:=a[k];
inc(s);
dec(k);
end;
for i:=1 to n do
write(b[i]:4);
readln;
END.