Program Segitiga Siku-Siku 3

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<=kolom)then
write('*')
else
write(' ');
end;
writeln;
end;
readln;
end.


Outputnya :

Untuk n=5

*****
****
***
**
*