Program Segitiga Siku-Siku 1

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 baris do
begin
write('*');
end;
writeln;
end;
readln;
end.


Outputnya :
Misal n : 5, maka akan tampil segitiga sebagai berikut:

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