ПАСКАЛЬ !!!
Помогите пожалуйста!!
Данно целое число А. Пользуясь только умножением, получите: А^2, А^5, А^17 за шесть операций.

 program d1;
var x,v,b,n,d,q:integer
begin
x:=A*A; 
v:=x*x*A;
b:=v*v*v*x;
writeln(x);
writeln(v);
writeln(b);
end.