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