Загрузка

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(random(50));
                  if x mod 5<>0 then exit
                  else begin
                  clrscr;
                  for n:=Length(d) downto 1 do if d[n]='=' then begin
                      Delete(d,n,1);
                      Insert('>',d,n);
                  end;
                       end;{begin}
                             end;{begin}
                    end;{begin}

end.