contoh 1, program nested_for (turbo pascal)

program nested_for;
USES
WINCRT;
var
I,K:INTEGER;
BEGIN
FOR I:=1 to 3 DO
   BEGIN
   FOR K:=1 TO 5 DO
WRITE(K, ' ');
WRITELN;
END;
END.