Для заданного натурального числа n не превышающего 3*104 найти все тройки натуральных чисел a, b, c таких, что a + b + c = n и a ≤ b ≤ c. паскаль. : 3

Var i,j,k,n: integer;
begin
  write('n = ');  readln(n);
  i:=1; k:=0;
  repeat
    j:=i;
    repeat
      k:=k+1;
      writeln(i,' ',j,' ',n-i-j);
      j:=j+1;
    until j>(n-i) div 2;
    i:=i+1;
  until i>n div 3;
  writeln('всего вариантов: ',k);
end.

n = 10
1 1 8
1 2 7
1 3 6
1 4 5
2 2 6
2 3 5
2 4 4
3 3 4
всего вариантов: 8