program znaki;
uses crt,graph;
var gd,gm,i,j:integer;
X,Y:ARRAY [1..15] OF INTEGER;
begin
     gd:=detect;
     initgraph(gd,gm,'');
     for i:=1 to 15 do
     begin x[i]:=random(639);y[i]:=random(480);end;
     repeat
     for i:=1 to 15 do
     begin
     putpixel(x[i],y[i],0);
     delay(300);
     if x[i]>0 then x[i]:=x[i]-i else x[i]:=639;
     putpixel(x[i],y[i],15);end
     until keypressed;
     readln;
     closegraph;
end.