Pascal segitiga siku-siku

uses crt;
var a,i,j : integer;
begin
     clrscr;
     write ('masukan angka : ');readln(a);
     for i := 1 to a do
     begin
     for j := 1 to i do
     write (j);
     readln;
     end;
end.

Output :