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

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