{ POHYBK.PAS Copyright (c) Pheo } { Pohybujúca sa kružnica (vertikálne alebo horizontálne). } { } { Datum:11.04.2005 http://www.trsek.com } Program Pohybk; Uses Crt, Graph; Var gd, gm : Integer; x, y : Word; Begin gd:=VGA; gm:=VGAHi; InitGraph(gd, gm, ''); x:=0; y:=220; Repeat Inc(x); SetColor(Yellow); Circle(x, y, 20); delay(1000); SetColor(Black); Circle(x, y, 20); Until x>630; ReadLn; CloseGraph; end.