Дано действительное число a. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить: а) a3 и a10 за четыре операции;

Program NUmbers;   var a,a3,a10,i:integer; begin    a3:=1; a10:=1;    writeln('Daite chislo A'); readln(a);       for i:=1 to 3 do a3:=a3*i;       for i:=1 to 10 do a10:=a10*i;    writeln('Chisla: ',a3,'  ',a10); readln; end. _____________ a10:=a10*i; ---- eto formula dlya n!