5.12 Измените код программы так , чтобы холодный и горячий газы были разного цвета.

Указание:

Для этого необходимо заменить ниже приведенный фрагмент кода :

Screen->Canvas->Pen->Color= clBlue;

Screen->Canvas->Ellipse(Mol[i].X - R, Mol[i].Y - R, Mol[i].X + R, Mol[i].Y + R);

Красный цвет clRed.

Добавив оператор условия

if (i < N)

{ // определить сини цвет

// вывести молекулы

}

else

{// определить красный цвет

// вывести молекулы

}

5.13. Проверить работу программы . Убедится, что все кнопки главной формы работают. Оформить самостоятельную работу в отчет.