АГВБ как-то так пишу чтобы набрать символы
Var
A :array[2..20] of integer;
i : integer;
begin
for i:=1 to 22 do
for i:=1 to 22 do
begin
A[i]:=A[A+2];
Writeln(a[i]:4);
end;
end.
Репрезентации а лишнее записование
С какими списками? Я не знаю по какому учебнику вы учитесь)