Pascal membuat segitiga piramid menaik dengan while-do

 Selamat datang temen-temen yang sudah mau meluangkan waktunya berkunjung diblog ini. Disini saya akan membahas tentang pemrograman menggunakan pascal, mengenai segitiga piramid menaik menggunakan while-do. enggak usah lama-lama langsung saja ketkp. Seperti inilah scrip untuk pascal selamat mencobanya.

var x,i,j:integer;
  begin
  write(‘Masukkan Nilai 1-10: ‘);
  readln(x);
  i:=1;
  j:=1;
  while (i<=x) and (x<=10) do
  begin
  j:=1;
  while(j<=i) do
  begin
  while (j<=i)do
  begin
  write(i);
  j:=j+1;
  end;
  end;
  i:=i+1;
  writeln;
 end;
  readln;
  end.