Сравни предложенный алгоритм с заданием и определи номер строки алгоритма, содержащей ошибку.
Алгоритм
Задание: нарисовать предложенное ниже
1. Вставить круг
изображение
2. Изменить заливку на красный цвет;
3. Изменить цвет контура на зеленый цвет;
4. Изменить толщину контура;
5. Вставить в круг квадрат;
6. Цвет контура квадрата изменить на красный
цвет;
7. Цвет заливки квадрата изменить на красный
цвет.
1
2
3
4
5
6
7​

2 единицы в двоичной записи числа 1025

10000000001

var a: array[1..50] of integer; i,f, n: integer;

begin write('n='); readln(n); for i : = 1 to n do begin write('a', i, '='); readln(a[i]); end; f : = 0; writeln; for i : = 1 to n - 1 do if (a[i] mod 2 < > 0) and (a[i + 1] mod 2 = 0) then f : = 1; if f = 0 then begin for i : = 1 to n do if a[i] < 0 then write(a[i]: 4); end else for i : = 1 to n do if a[i] > 0 then write(a[i]: 4); end.

синий,желтый,красный,зеленый,оранж.

чередование четных не чётных