Для заданного натурального числа 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 = 101 1 81 2 71 3 61 4 52 2 62 3 52 4 43 3 4всего вариантов: 8