nested-loop

var
    i: shortint;
    x: char;

begin
    clrscr;
    for i:=1 to 3 do // untuk barisnya
    begin
        for x:='A' to 'D' do // untuk kolomnya
            write(i, x, ' '); // utk mencetak baris+kolom dan spasi antar kolom
        writeln; // untuk melakukan enter
    end;
end.