Дано действительное число 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!