напечатать все различные разбиения числа 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.