Помогите с паскалем.
Напечатать все различные разбиения числа N на 3 натуральных слагаемых.
Заранее спасибо.

спасибо

uses crt; var //Блок начала перпеменных N,a,b,c:integer; // Объявляем переменные begin  clrscr;  readln(N);  for a:=1 to n-2 do   for b:=1 to n-a-1 do    begin     c:=n-a-b;    writeln('Variant:',a,',',b,',',c);    end;    readln; end.