program segitiga pascal

program segitiga;
uses wincrt;
var x,y,n:integer;
begin
writeln('berapa n=?');readln(n);
for x:= n downto 1 do
begin
writeln;
for y:= x downto 1 do
begin
write('n');
end;
end;
end.