PASCAL

program_baris
uses crt;
var i,j,k,n integer;
begin
        writeln('masukkan angka=');readln(n);
        for i:=1 then
        write(i)
       else
       begin
       for k:=2 to i do
       j:=1;
       repeat
       write(i);
      inc(j);
      until j=k;
      writeln(i);
       end;
    end;
end.

output:
masukkan 5
1
12
123
1234
12345