(Código fonte)Contador de números em pascal(Efeito Matrix)

[Xinitrc]

Código: Selecionar todos

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.