[1] Comentário enviado por doradu em 09/02/2010 - 17:49h

tava mexendo aqui, olhe só

program numeros;

uses crt;
var a:integer;

begin
clrscr;
Textcolor(green);
a:=1;

repeat

for a:=1 to 100 do
begin
write(a);
textcolor(a);
textbackground(a - 1);

end;

until a>=1000;

readkey;
end.

0 0