Contador de Números (Pascal)

[Senhor Unix]

Esse programa conta os números milhares de vezes,estilo Matrix,use o Turbo Pascal 7,para compilar e executar.

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.

[Fynal Claud]

vou dar uma conferida aki mano...^^!

[tecnico1]

lol

Ja fiz ixo em lp é fixe e facil de mais xD

[scorpblack]

tipo isso não passa do 100?

a=1 ate 100
1º a=1
2º a=2
escreve a
como chega os 1000?
Acho que esta errado... corrijam-me se estiver errado

[jr.messy]

Achei legal apesar de simples!! ^^