Question

Очень срочно помогите с паскалем
Вводится целочисленная переменная х. Найдите х14 за минимальное количество умножений.




1. Дан набор команд в произвольном порядке (других команд в программе быть не должно). Соберите программу путем выбора правильных команд.




program x14;


y:=x*x;


writeln(x);


x:=x*y;


var x: integer;


x:=x*x;


readln (x, y);


end.


y:=y*y;


writeln(y);


y:=y*x;


begin


x:=x*x;


writeln(x, ' ', y);


y:=y*x;


var x, y: integer;


y:=x;


readln (x);


y:=y*x;


var x, y: real;


x:=x*y;


y:=y*y;