найти количество всех натуральных чисел которые удовлетворяют условия 22x+14y=8456

program zz1;

var x, y, k:integer; / / задаем переменные целого типа

begin

for x:=1 to 5000 do / / перебираем все натуральные числа для х

for y:=1 to 5000 do / / перебираем все натуральные числа для у

if 22 * x + 14 * y = 8456 then k: = k + 1; / / проверяем условие, если числа удовлетворяют заданному условию, то считаем их

writeln (' количество всех натуральных чисел удовлетворяющих условию = ', k); / / выводим ответ

end.