Вот: 41 , 47 , 53 , 59 , 65 , 71
var
a, b, c:real;
begin
write('A = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
if abs(A - B )< abs(A - C) then
writeln('точка B расположена ближе к точке А, чем точка С. Расстояние от А до B: ', abs(A - B))
else
if abs(A - B ) > abs(A - C) then
writeln('точка С расположена ближе к точке А, чем точка B. Расстояние от А до С: ', abs(A - C))
else
writeln('Точки B и C находятся на одинковом расстоянии от точки А равном: ', abs(A - C));
end.
Если я всё верно понял то программа должна сложить цифры числа и поделить их на количество этих цифр например число 12345 должно будет обработаться так 1+2+3+4+5=15 15/5=3, программа на скрине, я её сделал не только для этого примера, туда можно ввести любое число и программа сработает верно, программу не комментировал надеюсь всё и так понятно
1⁸1⁷1⁶0⁵1⁴0³1²0¹0⁰₂ = = 0 + 0 + 4 + 0 + 16 + 0 + 64 + 128 + 256 = 468₁₀