Membuat segitiga siku-siku dengan pascal

Program ini digunakan untuk mencetak tinggi segitiga yang diinput dengan proses pengulangan yaitu for dan repeat until.

 

uses crt;

var

         n,x,y : integer;

         coba : string;

begin

      repeat

         clrscr;

         write('Masukkan Tinggi segitiga :');

         readln(n);

         for x := 1 to n do

begin

         writeln(' ');

         for y := 1 to x do

         write('*');

         writeln;

end;

         writeln;

         writeln;

         write('Mau Lagi [y/n]:');

         readln(coba);

      until coba = 'n';

readkey;

end.

Outputnya akan seperti ini :