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.