Lặp chương trình in ra màn hình các số từ 1 đến 100

Viết chương trình in ra màn hình các số nguyên từ 1 đến 100 mỗi 10 số trên một dòng. :D Ví dụ: Ở hình --- Yêu cầu: Không chép mạng nhé! :D Nhanh nhất và đúng nhất = 60 điểm và 5 sao ^^

Uses crt;

var i:integer;

begin

clrscr;

for i:=1 to 100 do

Begin

Write[i,   ];

If i mod 10 = 0 then writeln;

End;

readln;

end.

đây nhé