informatyki i systemów mikroprocesorowych

program animka;
uses crt,graph;
var sterownik,tryb,i : integer;
xs,ys:word;
begin
sterownik :=detect;
initgraph ( sterownik,tryb,'c:\tp\bgi');
setcolor(red);
xs:= getmaxx div 2;
ys:= getmaxy div 2;
setcolor (red);
for i :=-40 to 679 do
begin
rectangle (i,ys-20,i+40,ys+20);
delay (10);
setcolor (black);
rectangle (i,ys-20,i+40,ys+20);
setcolor (red);
end;
repeat until keypressed;
closegraph;
end.