Turbo Pascal Window: Deret Hitung Real Bentuk Segitiga Paskal

 Berikut adalah Program Pascal untuk membuat segitiga siku-siku namun dengan deret hitung bilangan real 1,2,3,4 dst. Check it out:
Program DeretAngkaSikuSiku;
uses wincrt;
var
   i,j,m:integer;
begin
     clrscr;
     write('Masukkan Sembarang Angka: ');readln(m);
     i:=1;
     while i<=m do
     begin
          j:=1;
          while j<=i do
          begin
               j:=j+0;
               write(j);
               inc(j);
          end;
          writeln;
          inc(i);
     end;
     readln;
end.