const n=10;
var a:array[1..n] of byte;
    b:array[1..n div 2] of integer;
    mn:set of byte;
    an,i:integer;
begin
Randomize;
an:=random(30);
a[1]:=an;
mn:=[an];
for i:=2 to n do begin
 while (an in mn) do an:=random(30);
 a[i]:=an;
 mn:=mn+[an];
 end;
writeln('Исходный массив:');
for i:=1 to n do write(a[i]:3);
writeln;
for i:=1 to n div 2 do b[i]:=a[i]+a[n-i+1];
writeln('Полученный массив:');
for i:=1 to n div 2 do write(b[i]:3);
writeln;
end.