Esse programa conta os números milhares de vezes,estilo Matrix,use o Turbo Pascal 7,para compilar e executar.
Código:
program numeros; uses crt; var a:integer; begin clrscr; Textcolor(green); a:=1; repeat for a:=1 to 100 do write(a); until a>=1000; readkey; end.
Comment