Паскаль ! данно целое число а. пользуясь только умножением, получите: а^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.