Возведение в степень, используя лишь операции сложения, умножения и вычитания - Turbo Pascal

Формулировка задачи:

Дано действительное число х. Не пользуясь никакими други*ми арифметическими операциями, кроме умножения, сложения и вычитания, вычислить за минимальное число операций 2x^4-3x^3+4x^2-5

Решение задачи: «Возведение в степень, используя лишь операции сложения, умножения и вычитания»

Листинг программы

var x,y,s:real;
begin
write('x=');
readln(x);
y:=x*x;
s:=y*(2*y-3*x+4)-5;
write('s=',s:0:2);
readln
end.

Объяснение кода листинга программы

Создается переменная x и присваивается ей значение, которое читается с консоли.
Создается переменная y и присваивается ей значение x*x, то есть x возводится в квадрат.
Создается переменная s и присваивается ей значение y*(2*y-3*x+4)-5, то есть y возводится в квадрат, затем из этого значения вычитается 3*x/2 и прибавляется 4 и -5.
Выводится значение переменной s с помощью функции write.
Программа завершается вызовом функции readln, чтобы прочитать значение x с консоли.