Membuat Pola Segitiga Menggunakan Pascal

Jadi udah menjadi tradisi di akhir pertemuan praktikum Pak Dody selalu ngasi tugas. Tugas kali ini disuruh buat pola segitiga siku-siku. Di program ini user nantinya bisa memasukkan karakter dan jumlah baris yang diinginkan.

Ini codenya:

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var   a,b,c,d : integer;
      lagi,karakter: string;
begin
lagi:='y';
repeat
  writeln ('Program Membuat Pola Segitiga By Yudik');
  writeln;
  write ('Tekan ENTER untuk melanjutkan '); readln;
  writeln;
  write ('Masukkan karakter : '); readln(karakter);
  write ('Masukkan jumlah   : '); readln(a);
  writeln;
  c :=a;
  for a:=1 to c do
  begin
  for b:=1 to a do
  write (karakter);
  writeln;
  end;
    for b:=1 to a do
    begin
    for d:=1 to c do
    begin
    write (karakter);
    end;
    writeln;
    dec (c);
  end;
       write('Mau Coba Lagi [Y/N]: ');
       readln(lagi);
       writeln;
       until (lagi='N') or (lagi='n');
end.


Ini penampakan hasilnya

sekian, kalau ada yang mau ditanyakan silakan bertanya sama mbah google, jangan tanya sama saya, soalnya saya masih belajar hahahahaha