Perulangan Segitiga siku-siku While-Do

Pada postingan sebelumnya. Ane bahas tentang perulangan menggunakan Repeat-Until. Nah pada kesempatan ini ane pengen bahas perulangan segitiga siku-siku menggunakan While-Do. Ouputannya sama aje kaya yang repeat-Until. tapi codingannya beda. Nih Codingannya ane kasih tau gan :

Program contoh1;
usesWinCrt;
var a,b:integer;
begin
      a:=1;
      while (a<=4) do
            begin
                 b:=1;
                 while (b<=a) do
                        begin
                             write (a*b:5);
                             b:=b+1;
                       end;
               writeln;
               a:=a+1;
        end;
end.


Outputanya adalah :

1
2   4
3   6   9
4   8   12   16