{Program ma vykreslit roznofarebne sustredne kruznice,ktore postupne bude
mazat a vykreslovat az po stlacenie nejakej klavesy}

program pok;
uses graf;
var gd,gm:integer;
begin
gd:=detect;
repeat
for i:=1 to 15 do begin setcolor(1);
                        circle(300,250,i*10);
                        delay(100);
                  end;
for i:=15 to 1 do begin setcolor(2);
                        circle(300,250,i*10);
                        delay(100);
                  end;
do  ;
end.