membuat deret segitiga pada program pascal

Uses Wincrt;
Var i,j,n:integer;
Begin
n:=10;
Writeln;
For i:= 1 to n do
Begin
For j:= 10 downto i do
Write('@');
Writeln;
End;
End.