MEMBUAT PROGRAM SEGITIGA SAMA SISI

Mohon maaf yang sebesar-besarnya pemirsah, saya lupa dengan janji saya pada postingan sebelumnya UTS (UJIAN TANPA SETRESS) , jadi ingetnya baru sekarang. Nah waktu itu aku janji bakalan ngasi coding program segitiga sama sisi kalau udah selesai UTS, hohohoho,, OK deh aku bagikan aja sekarang, silakan disimak

==============================================

program UTS;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
lagi,karakter : string;
n,a,b,c  : integer;

begin
    lagi:='y';
    repeat
  write('Program Menampilkan Pola Segitga');
  writeln;
  writeln;
  write('By Dewa Gde Ari Wahyudi');
  writeln;
  writeln;
  write('=======================');
  writeln;
  writeln;
  write('Tekan ENTER untuk melanjutkan '); readln;
  writeln;
   write('Masukkan Karakter  : ');readln(karakter);
   write('Masukkan Jumlah    : ');readln(n);
   writeln;
for a:=1 to n do
begin
for b:=a to n+2 do
begin
write(' ');
end;
for c:=1 to a do
begin
write(karakter);write(' ');
end;
writeln;
end;
writeln;
       write('Mau Coba Lagi [Y/N]:  ');
       readln(lagi);
       writeln;
       until (lagi='N') or (lagi='n');
end.

==============================================

Ini screenshootnya :

OK aku udah nepatin janji jadi sekarang saatnya kabuuuuuuuuuuuuuuuuuuuuurrrrr