Гении компьютера и Pascal помогите пожалуйста

Попробуй так

program Calculator;

var
x, b: real;

begin
{ Задаємо значення x }
x := 24.5;

{ Розрахунок b за заданим виразом }
b := 6 * abs(x - 7 * power(x, 2)) + 4 * x - 5 * x + 6;

{ Виведення b з одним знаком після коми }
writeln('b = ', Format('%0.1f', [b]));

{ Виведення цілої частини числа b }
writeln('b = ', Trunc(b));
end.