"Đây là vòng lặp thứ ..."

PROGRAM CT39;
USES crt;
VAR i,n: BYTE;
BEGIN
Writeln('Chuong trinh ... Day la vong lap thu i ');
Write('Nhap so vong lap : '); Readln(n);
FOR i:=1 TO n DO
BEGIN
writeln('Day la vong lap thu ',i); delay(500);
END;
Readln
END.

Download: http://www.mediafire.com/?9c6an3p6he6k9ta