Оно на всех неправильное ось симетрии должа делить предмет ровно на пополам
Поднятие штанги, плавание, гимнастика, бокс.
Var
a,b,c:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
WriteLn(a+b-c/(a-2*b));
<span>End.
</span>
Надеюсь разберёшь мои каракули )