65х+28х=104х Решите пожалуйста

Решим уравнение 65 * х + 28 * х = 104 * х на языке программирования Pascal ABC. Введем следующие обозначения:

x – число, которое надо найти;

a – значение выражения 65 * х + 28 * х при заданном значении х;

b - значение выражения 104 * х при заданном значении х;

k – число, которое значение которого будет будет принимать величина х (положительное или отрицательное).

Программа может выглядеть так:

program uravnenie;

uses crt;

var k, x, a, b: integer;

begin

write (\'vvedite znachenie chisla k: \');

read(k);

for x:=-k to k do

begin

a:=65*x+28*x; {Вычисление значения величины а}

b:=104*x; {Вычисление значения величины b}

if a=b {Сравнение величины а с b}

then writeln (\'x=\', x); {Вывод результа при а = b}

end;

end.

Вводя разные значения числа k, получаем, что решением  уравнения 65 * х + 28 * х = 104 * х будет х = 0.