PASCAL "Segitiga Tinggi Piramida"

uses crt;
var a,b,i,j : integer ;
begin
     clrscr;
     write ('masukkan bilangan : ');readln(a);
     for i := 1 to a do
     begin
     b := 50-i;
     for j := 1 to i do
     begin
     gotoxy (b,i);
     write (j);
     b := b+2;
     readln;
     end;
     end;
end.

Output :