Дано действительное число а. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить: а) а^4 за две операции. б) а^6 за три операции — Pascal(Паскаль)

uses Crt;
var a1,a2,a,s,c:integer;
begin
clrscr;
readln(a);
writeln('Введите степень,в которую надо возвести число,4 или 6?');
readln(c);
if (c=4) or (c=6) then 
begin
       if (c=4) then 
       begin
              a1:=a*a;
              s:=a1*a1;
       end
       else
       begin
             a1:=a*a;
             a2:=a1*a;
             s:=a2*a2;
       end
else  writeln('Не верно введена степень');
if (s<>0) then writeln(s);
end.