Deret Angka pada Pascal

"deret"
1
2 3
4 5 6
7 8 9 10

program pelajar;
uses wincrt;
var
n,i,j:integer;
begin
n:=1;
for i:=1 to 4 do
    begin
         for j:=1 to i do
         begin
         write(n,' ');
         n:=n+1;
         end;
         writeln(' ');
         end;
end.