Показать, что всякую сумму, великую 7 копеек, можно выплатить, используя только

program Diofant;

var

 n, x, y: integer;

begin

 n := 125;

 3x + 5y = n, n gt;= 0, x gt;= 0, y gt;= 0;

 n - 5y gt;= 0, y lt;= n / 5

 for y := 0 to n div 5 do

 begin

   if (n - 5 * y) mod 3 = 0 then

   begin

     x := (n - 5 * y) div 3;

     Writeln('3 * ', x, ' + 5 * ', y, ' = ', n)

   end;

 end;

 Readln;

end.