Сидз по статистике. совсем не понимаю как это делается.

На флаге Северной Кореи КНДР:

Пять горизонтальных полос: синяя, белая, красная, белая и синяя. Красная полоса шириной 3/5 ширины флага.

Красная пятиконечная звезда в белом круге смещена ближе к древку флага.

Значение и история флага Корейской Народно-Демократической Республики:

Звезда символизирует революционные традиции. Красный цвет означает революционный патриотизм и дух борьбы. Белый цвет является традиционным для корейцев, он означает чистоту идеалов. Синий цвет символизирует стремление к объединению с революционными силами всего мира в борьбе за победу идей независимости, дружбы и мира.

Флаг КНДР был принят 8 сентября 1948 года.

Соотношение сторон флага 1:2.

Цвета флага Северной Кореи:

1) элемент с номером K заменяется на 2

var

a:array [1..20] of integer;

i,n,k:integer;

begin

readln(n);

for i:=1 to n do

begin

a[i]:=random(50);

write(a[i]:3);

end;

writeln;

readln(k);

a[k]:=2;

for i:=1 to n do

write(a[i]:3);

end.

2) элемент вставляется в массив остальные элементы сдвигаются вправо

var
a: array [1..20] of integer;
i, n, k: integer;

begin
readln(n);
for i := 1 to n do
begin
a[i] := random(50);
write(a[i]:3);
end;
writeln;
readln(k);
for i:=n+1 downto k do a[i]:=a[i-1];
a[k] := 2;
for i := 1 to n+1 do
write(a[i]:3);
end.