Найти все тройки натуральных чисел удовлетворяющих условию

[ayPinki]

Найти все тройки натуральных чисел ( x, y, z ), удовлетворяющих
условию x ⋅ y + 5⋅ z = N . Натуральное N вводится с клавиатуры. Если
решений нет, то выдать сообщение об этом. Например, для N =12:
1, 7, 1
1, 2, 2
2, 1, 2
7, 1, 1

До этого всё решал, а тут просто зла не хватает, не могу подступится и всё=/. подкиньте код)
можно использовать циклы for/ while/ repeat/ массивы.

[TinMan]

for x:= 1 to n do
  for y:=1 to n do
    if (n-x*y) mod 5=0 then writeln(x:5,y:5,(n-x*y) div 5:5);

[ayPinki]

Сообщение от TinMan

for x:= 1 to n do
  for y:=1 to n do
    if (n-x*y) mod 5=0 then writeln(x:5,y:5,(n-x*y) div 5:5);

уважаемый, там же написано, натуральные числа, а ваш код берет z со всех множеств .
вот что у меня получилось, чуть подделав ваше)

k:=0;
for x:=1 to n do
for y:=1 to n do
for z:=1 to n do
if (x*y+5*z)=n then
~~~~
k:=k+1;

всем спс. всё чётко)

[Leshii]

Ну какбэ "Уважаемый" себто Tinman подал суть как решать.
Ваша же задача обработать.
А в вашем коде получается не вывод троек, а сколько раз у вас в цикле нашлись тройки.
Сами себе противоречите.
И да можно было сделать как у вас но видимо вы толи не дописали толи не сделали вывод трёх цифр.

[ayPinki]

"суть подать" тут все знатоки, а вот реализовать))
даа, а ларчик то просто открывался=/