Thủ tục vẽ hình chữ nhật.(5x3)

PROGRAM CT80;
USES crt;
PROCEDURE VeHCN;
BEGIN
Writeln('* * * * *');
Writeln('* *');
Writeln('* * * * *');
END;
BEGIN
clrscr;
VeHCN;
Writeln; Delay(500);
VeHCN;
Readln
END.

Download: http://www.mediafire.com/?0eon2mvraw9dsno