program massiv_2;
const n=20;
var b:array[1..n] of integer;
i:integer;
begin
writeln('Начальный массив');
for i:=1 to n div 2 do
b[i]:=2*i;
write(b[i]:3);
end;
writeln;
writeln('Увеличенный массив');
for i:=1 to n do
if i>n div 2 then b[i]:=2*i;
end.
program massiv_2;
const n=20;
var b:array[1..n] of integer;
i:integer;
begin
writeln('Начальный массив');
for i:=1 to n div 2 do
begin
b[i]:=2*i;
write(b[i]:3);
end;
writeln;
writeln('Увеличенный массив');
for i:=1 to n do
begin
if i>n div 2 then b[i]:=2*i;
write(b[i]:3);
end;
end.