perulangan segitiga siku-siku Repeat-Until

Hay friend, kali ini gue mau posting tentang perulangan pada pascal nih. Gue pake pascal yang 32 bit ye. sekarang gue mau buat outputan segitiga siku-siku.

Nih codingannya untuk yang repeat-Until

uses WinCrt;
var a,b:integer;
begin
         b:=1;
         reapeat
                   a:=1;
                   b:=b+1;
                             repeat
                   b:=b-1;   write(a*b:5); b:=b+1;
                                a:=a+1;
                             until a=b;
                             writeln;
                             until b>4;
end.

nah jika kita run. maka outputannya akan seperti ini
1
2   4
3   6   9
4   8   12   16