Дано уравнение:xt1-yt2-zt3=0Условие:x,y,z - вводит юзер, при этом x,y,z больше 0

Числа натуральные либо любые?

Решение в естественных числах

*** Текст программки на PascalABC.NET ***

begin
  var (x,y,z):=ReadInteger3('Введите x,y,z:');
  var (a1,a2,a3):=ReadInteger3('Введите максимальные значения t1,t2,t3:');
  var k:=0;
  for var t1:=1 to a1 do
    for var t2:=1 to a2 do
      for var t3:=1 to a3 do
        if x*t1-y*t2-z*t3=0 then k+=1;
  if k=0 then Writeln('Решений нет')
  else
  begin
    Writeln('Найдено решений: ',k);
    if ReadInteger('Выводить решения? (1-да):')=1 then
    for var t1:=1 to a1 do
      for var t2:=1 to a2 do
        for var t3:=1 to a3 do
          if x*t1-y*t2-z*t3=0 then
            Writeln('xxt1-yxt2-zxt3=0')
  end;
  Writeln('Работа программы завершена')
end.

*** Пример работы с программой ***

Введите x,y,z: 3 5 7
Введите наибольшие значения t1,t2,t3: 10 10 10
Найдено решений: 3
Выводить решения? (1-да): 1
3x4-5x1-7x1=0
3x8-5x2-7x2=0
3x9-5x4-7x1=0
Работа программки завершена

Если числа естественные, что решение такое:

var

x,y,z,t1,t2,t3:integer;

begin

readln(x,y,z);

for t1:=1 to 9999 do

for t2:=1 to 9999 do

for t3:=1 to 9999 do

if x*t1 - y*t2 - z*t3 = 0 then

writeln('t1=',t1,'; t2=',t2,'; t3=',t3)

end.

Не знала в каком спектре обязаны быть корешки, так что заместо 9999 ставьте, что необходимо