uses vdirekt,crt;

var i : integer;

begin
    dclrscr;

    dgotoxy(1,24);

    for i:=1 to 1000 do begin
        dsetcolors(white,black);
        dwrite ('abc ');
{        delay(100);}
        dsetcolors(white,blue);
        dwrite ('abc ');
{        delay(100);}
        dsetcolors(black,lightgray);
        dwrite ('abc ');
        delay(100);
        end;



end.