Chương trình 12

USES crt;
VAR i: INTEGER;
BEGIN
clrscr;
FOR i:=1 TO 20 DO
BEGIN writeln('O'); delay(100) END;
Readln
END.

Download: http://www.mediafire.com/?8d3jckqbcjr4lze