Pascal/Для любого целого числа N > 9 найти все такие пары целых положительных чисел x и y, что 3x+7y=N.

program main;

var n, x, y: Integer;

begin

 Write('Введите N: '); ReadLn(n);

 for y:=0 to n div 9 do begin

   x:=n-y*7;

   if x mod 3=0 then WriteLn('3 * ',x div 3,' + 7 * ',y,' = ',n);

 end;

end.