Small Basic НУжно чтобы при изменении n=9 на n=10 (с нечётного на чётное) осталось шахматное поле а не становились одни полосы

GraphicsWindow.Width=800

GraphicsWindow.Height=800

n=9

raz= math.Floor(GraphicsWindow.Width /n )

GraphicsWindow.Show()

GraphicsWindow.BrushColor="#000000"

For x=0 To n-1 step 1

For y=0 to n-1 Step 1

if GraphicsWindow.BrushColor="#FF0000" Then

GraphicsWindow.BrushColor="#000000"

Else

GraphicsWindow.Brushcolor="#FF0000"

EndIf

GraphicsWindow.FillRectangle(x*raz,y*raz,raz-2,raz-2)

endfor

EndFor

Const
  n = 5;{ это позволяет в одном месте изменить количество чисел }

type
  numeric = real;{ это позволяет в одном месте изменить тип чисел }

var
  max, min: numeric;
  i: integer;
  a: array[1..n] of numeric;

begin
  Writeln('Введите ', n, ' произвольных чисел через пробел');
  Read(a[1]);
  min := a[1]; max := min;
  for i := 2 to n do
  begin
    Read(a[i]);
    if max < a[i] then max := a[i]
    else
    if min > a[i] then min := a[i]
  end;
  Writeln('Минимальное введенное: ', min, ', максимальное: ', max)
end.

Тестовое решение:
Введите 5 произвольных чисел через пробел
34 157 -84.54 14.843 -13.64
Минимальное введенное: -84.54, максимальное: 157

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 #include <iostream> #include <windows.h> using namespace std; void main() {     SetConsoleOutputCP(1251);     int num, col;     int a=0;     int min;     cout << "Программа которая находит минимальное из введенных пользователем чисел." << endl;     cout << "Сколько чисел вы введёте ?" << endl;     cin>>col; cin>>num; min=num;     do {     cout << "Введите число --> ";     cin >> num;     if (min>num) {     min=num;     }     a++;     } while (a < col-1); cout<<min<<endl; }