program segitiga;
uses crt;
var
baris,kolom,jumlah:integer;
begin
clrscr;
write('masukan jumlah baris');
read(jumlah);
baris:=1;
while baris<= jumlah do
begin
write('*' :jumlah+1-baris);
kolom:=2;
while kolom <= (2*baris-1) do
begin
write('*');
kolom:=kolom+1;
end;
writeln;
baris:=baris+1;
end;
readkey;
end.