Нарисуйте с модуля Turtle ковёр из кругов, где круги имеют один цвета фон ковра другой​

var

i,n: integer;

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

begin

readln(n);

for i: =1 to n do

begin

if i mod 2 =0 then a[i]: =i-3

else a[i]: =i+3;

writeln(a[i]);

end;

end.

var s: string;

begin s : = 'видеоадаптер'; writeln(s); writeln(s[3] + s[2]+ s[5] + s[3]); writeln(s[12] + s[6] + s[3] + s[2] + s[5]); writeln(s[9] + s[6] + s[12] + s[10] + s[11] + s[12]); end.

нельзя, ведь текст отсканирован а не скопирован!

обработка с электронных таблиц автоматизирует весь процесс и ускоряет выполнение работы.