program Imaging;
Uses Crt;
type rec=record
   x,y:byte;
   end;
var mass:array[1..100] of rec;
i:byte;
begin
clrscr;
randomize;
mass[1].x:=70;
mass[1].y:=18;
mass[2].x:=72;
mass[2].y:=13;
mass[3].x:=49;
mass[3].y:=14;
mass[4].x:=53;
mass[4].y:=18;
mass[5].x:=37;
mass[5].y:=10;
mass[6].x:=26;
mass[6].y:=12;
mass[7].x:=36;
mass[7].y:=9;
randomize;
repeat

for i:=1 to 6 do begin
   if random(2) = 1 then highvideo else normvideo;
   gotoxy(mass[i].x,mass[i].y);
   write('*');
   gotoxy(1,1);
   delay(10000);
end;

{ normvideo;
for i:=1 to 6 do begin
   gotoxy(mass[i].x,mass[i].y);
   write('*')
end   ;
delay(50000);
 lowvideo;
for i:=1 to 6 do begin
   gotoxy(mass[i].x,mass[i].y);
   write('*')
end   ;
delay(50000);}
until keypressed;
readln
end.