Vẽ các hình vuông dùng câu lệnh lặp For...To...Do

Program Ve_Hinh_Vuong;
    uses crt;
    var i,j:integer;
begin
   clrscr;
   For j:=1 to 3 do begin
        For i:=1 to 5 do begin write('.',' '); delay(300); end;
        Writeln;
        For i:=1 to 3 do writeln('.       .');
        For i:=1 to 5 do write('.',' ');
        Writeln;
        Delay(500);
   end;
   readln;
end.

Kết quả: