Program Segitiga Siku-Siku 4

Program segitiga;
uses crt;
var
baris,kolom,n:integer;
begin
clrscr;
write('Masukan nilai n: ');
readln(n);
writeln;
for baris:=1 to n do
begin
for kolom:=1 to n do
begin
if(baris>=n-kolom+1)then
write('*')
else
write(' ');
end;
writeln;
end;
readln;
end.

Outputnya :
Misal n=4

*
**
***
****