Contoh membuat PROGRAM Segitiga dengan menggunakan Program Bahasa Paskal

uses crt;
var
   i,j:integer;
begin
     clrscr;
     i := 1;
     repeat
           j := 1;
           repeat
           write((i*j),' ');
    inc(j);
    until (j > i);
           inc(i);
           writeln;
     until (i > 5);
end.