Задача по информатике

Программа на языке  Паскаль:  

uses graph;

var

    g,h:integer;

    x,y:integer;

begin

    g := detect;

    initgraph(g,h,'');

    randomize;

    y := 0;

    repeat

        x := 0;

        repeat

            setcolor(10);

            moveto(x,y+50);lineto(x+30,y);lineto(x+30,y+50);

            setcolor(random(10)+6);

            circle(x+30,y+50,20);

            x := x + 60;

        until x > 800;

        y := y + 100;

    until y > 600;

readln

end.