Школьный курс Pascal abc

[nonak]

Как возвести в степень число в паскале в типе integer? Вот пробовал получается только если число умножить на себя N-ое количество раз но такой вариант не устраивает. Помогите новичку

var
 n,a1,a2,a3,a4 :integer;
begin
read(a1);
read(a2);
read(a3);
read(a4);
n:=exp(ln(a4)*9)+exp(ln(a3)*8)+exp(ln(a2)*2)+exp(ln(a1)*5);
writeln(n);
end.

[Mad_Cat]

begin
//............
writeln(power(a4,9)+power(a3,8)+power(a2,2)+power(a1,5));
//.........
end.

p.s в паскале АВС power стандартная функа

[nonak]

Сообщение от Mad_Cat

begin
//............
writeln(power(a4,9)+power(a3,8)+power(a2,2)+power(a1,5));
//.........
end.

p.s в паскале АВС power стандартная функа

а как можно обойти power(преподаватель попросил не использовать) и почему мой вариант не работает?

[Mad_Cat]

n:real; должно быть

[whatever]

Можно и без Real

n:=round(exp(ln(a4)*9)+exp(ln(a3)*8)+exp(ln(a2)*2)+exp(ln(a1)*5));

Но это только для небольших a1,a2,a3,a4

[nonak]

 for a4:=0 to 9 do
   for a3:=0 to 9 do
   for a2:=0 to 9 do
   for a1:=0 to 9 do
   
   if round(exp(ln(a1)*4)+exp(ln(a4)*4)+exp(ln(a3)*4)+exp(ln(a2)*4))=a1*1000+a2*100+a3*10+a4

как реализовать программу по поиску 4-х значных чисел Армтронга проблима в том что логорифм не может быть 0-ым как обойти эту ситуацию

[BDA]

Возможно, можно оптимизировать:

uses
  crt;

var
  i: integer;

function bp(a, k: integer): integer;
var
  b: integer;
begin
  if k = 1 then
    bp := a
    else
  if k mod 2 = 0 then
  begin
    b := bp(a, k div 2);
    bp := b * b;
  end
    else
  begin
    b := bp(a, k div 2);
    bp := b * b * a;
  end;
end;

function arm(a: integer): boolean;
var
  s: string;
  k, j, sum, b: integer;
begin
  str(a, s);
  k := length(s);
  sum := 0;
  b := a;
  for j := 1 to k do
  begin
    sum := sum + bp(b mod 10, k);
    b := b div 10;
  end;
  if sum = a then
    arm := true
  else
    arm := false;
end;

begin
  for i := 1000 to 9999 do
    if arm(i) then
      writeln(i);
  readln;
end.