Разделим обе части уравнения на 5 и получим 3x+4y+6z=54var x,y,z:integer;begin for z:=1 to 9 do for y:=1 to (51-z) div 4 do for x:=1 to (54-z-y) div 3 do if 3*x+4*y+6*z=54 then Writeln(x,' ',y,' ',z)end.Тестовое решение (тройки коэффициентов x,y,z)12 3 18 6 14 9 110 3 26 6 22 9 28 3 34 6 36 3 42 6 44 3 52 3 6