//PascalABC.NET 3.2
begin
var x := ReadlnReal('x =');
var s := 3*x + 29 - 10*x;
if s > 25 then write(s)
else write('?');
end.
ACDF= 8 ( можно определить по методу Дейтриксы)
Файл с исходным кодом прикреплен, код есть продублированный в коментах, если есть вопросы - пиши в коменты или ЛС, но лучше коменты, что бы если что, кто-то тоже смог разобраться.
З.Ы.
Весь код прокоментирован.