Дано действительное число x. вычислите число x4. какое наименьшее число операций умножения необходимо для этого?

Var x: real;
begin
read(a);
a:= a * 4;
writeln(a);
end.
если это умножение как написано в условии, то 1 операция