program expression;
var
x, y: real;
begin
read(x);
y := power(x, 4) - 3 * power(x, 3) + 5 * x - 6;
write(y);
end.
Объяснение:
program expression; // Название программы
var
x, y: real; // Две переменные являются вещественными (требуется для power)
begin // Начало программы
read(x); // Вводим число с клавиатуры
y := power(x, 4) - 3 * power(x, 3) + 5 * x - 6; // Само выражение
power(число, которое нужно возвести в степень | сама степень)
power(x, 4)
x - число
4 - степень
write(y); // Выводим ответ
end. // Начало программы
