Program Looping Sederhana

Dibawah ini adalah program Looping atau pengulangan yang paling sederhana pada pascal :

uses crt;
var a,b :integer;
begin
clrscr;
for a:= 1 to 3 do
begin
for b:= 1 to 2 do
write (a:4,b:2);
writeln;
end;
readln;
end.