Program Segitiga Siku-Siku 2

program segitiga;
uses crt;
var
baris,kolom,n:integer;
begin
clrscr;
write('Masukan nilai n : ');
readln(n);
writeln;
for baris:=n downto 1 do
begin
for kolom:=1 to baris do
begin
write('*');
end;
writeln;
end;
readln;
end.


Outputnya :

misal n=4

****
***
**
*