Паскаль. , ! нужно написать программу, которая в левом верхнем углу экрана рисует прямоугольник размером ахв зеленого цвета и равномерно заполняет его 100 случайными точками белого цвета.

Uses
    GraphABC;

var
    i, a, b: integer;

begin
    SetBrushColor(clGreen);
    a := random(500)+100;
    b := random(500)+100;
    Rectangle(0, 0, a, b);
   
    for i := 1 to 100 do
    begin
        PutPixel(random(a), random(b), clWhite);
        sleep(100);
    end;
   
end.