Разработать программу с использование

графического режима на паскале abc

.

Реализовать программу, которая

периодически выводит на экран "звездное

небо" и затем гасит его.

Uses

GraphABC;

var

i: integer;

begin

GraphABC. Brush. Color : = Color. DarkBlue;

GraphABC. FillRect (0, 0, WindowWidth, WindowHeight) ;

for i : = 1 to 1000 do

GraphABC. SetPixel (Random (WindowWidth), Random (WindowHeight), clWhite) ;

System. Threading. Thread. Sleep (500) ;

GraphABC. FillRect (0, 0, WindowWidth, WindowHeight) ;

end.