Задача на комбинаторику

[programmm]

ЗДРАВСТВУЙТЕ! Не могли бы помочь вот у меня есть програмка на pascal которое выполняет следующее:
Программа razmp осуществляет перечисление всех n размещений с повторениями.
program razmp;

А мне надо сделать следуюшее:
Видоизмените программу так, чтобы она выводила размещения с повторениями с суммой значений на позициях, равной восьми только на языке java

const n=5;r=3;
var i j, k, a: integer;
begin
 a:=n;for i:=2 to r do a:=a*n; 
 for i:=1 to a do
  begin
   k:=i-1;
   for j:=1 to r do
     begin
      write((k mod n)+l); k:=k div n;
     end;
   write(' ');
  end;
 writeln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.