Для Прохорченко Леонида (8 "Г") (Комменты к домашке...)

О, великий из великих, талантливейший из талантливейших!!!!
http://blog1tvorlich.blogspot.com/ (Блог творческой личности)
Падаю ниц перед тобой!!!  Умничек, радость жизни моей! Ты действительно первый и правильно выполнил домашнюю работку, оценка 5+.  А у меня решение покороче имеется....:)
{3в степени 100}
program Project2;

var m : array [0..300] of integer;
    i,j,a,n,w,r : integer;
begin
  readln(a, n);
  m[0]:=1;
  m[1]:=1;
  for i:=1 to n do
    begin
      r:=0;
      j:=1;
      while (j<=m[0]) or (r<>0) do
        begin
          w:=m[j]*a+r;
          m[j]:=w mod 10;
          r:=w div 10;
          if m[m[0]+1]<>0 then inc(m[0]);
          inc(j)
        end;
    end;
  for i:=m[0] downto 1 do
    write(m[i]);
  writeln;
  readln;
end. ОТВЕТ: 515377520732011331036461129765621272702107522001