SEGITIGA SIKU TERBALIK

program coba;


uses wincrt;


var
   n,i,l:integer;
   s : char;


begin
     writeln('"PROGRAM SEGITIGA SIKU TERBALIK"');
     writeln('================================');
     write('Masukkan jumlah batasan: '); readln(n);
     write('Masukkan sebuah symbol dari keyboard: '); readln(s);
     writeln('========================================>>');


for i:=n downto 1 do
begin
     for l:=i downto 2 do
     begin
          write(s);
     end;
     writeln(s);
     
end;
writeln('=====================>>');


end.




===============================>>>
Running Program: