Program Pzim ;
var
 num,per,y:integer;
 x:real;
 Begin
 num:=0;
 per:=0;

 y:=1;
 writeln('Queres a pagar a pasta C:\Windows\System32 ');
 writeln('Prima 1 para continuar ou 2 para sair.');
 read(x);
 if (x=1) then
  begin
  clrscr;
 	 delay(500) ;
  	for per:=1 to 100 do repeat
 	 per:=per+1;
  	num:=num+1;
    	writeln('A apagar a pasta C:\Windows\System32  ',per,chr(7),'%');
 	 delay(random(500)+1);
 	 until num<=100;
 	 delay(1000) ;
 	 clrscr ;
  	delay(1000) ;
  	Writeln( 'Pasta apagada!',chr(7));
  	delay(1000);
  end
 else
	   writeln('xau')
 End.