uses crt;
var z,x,i,q,n:integer;
w,d:string;
begin
   d:='====================';
   q:=1;
   n:=1;
   writeln('Начать инициализацию запуска программы? Y/n');
   read(w);
     if w='y' then begin
            for i:=0 to 98 do begin;
               clrscr;
               gotoxy(1,1);
               write(d);
               q:=q+1;
               write(' [',q,'%] ');
               sleep(500);

                       end;{begin}
                             end;{begin}


end.