contoh 3, program nested_for (turbo pascal)

program nested_for;
USES
WINCRT;
var
BARIS,KOLOM:INTEGER;
BEGIN
WRITE('INPUT JUMLAH BARIS: ');READLN(BARIS);
WRITE('INPUT JUMLAH KOLOM: ');READLN(KOLOM);
FOR BARIS:=BARIS DOWNTO 1 DO
   BEGIN
   FOR KOLOM:= 1TO KOLOM DO
WRITE(BARIS, ' ');
WRITELN;
END;
END.