Вычисление числа 4 в степени 500

program task;
Uses Crt;
const
n=4;
imax=500;
var
b:integer;
procedure deg (b:integer);
var
k,i:integer;
a:array [1..imax,1..n] of real;
Begin
for i:= 1 to imax do begin
for k:= n downto 1 do
a[i,k]:=exp(i*ln(4));
write(a[i,k]:12:2);
end;
End;
BEGIN
ClrScr;
b:=3;
deg(b);
readkey
end.

program task9;
const
 n=30;
 imax=2;
var
 b:integer;
 procedure deg (b:integer);
var
 j,x,k,i:integer;
 a:array [1..imax,1..n] of  integer;
begin
for i:= 1 to imax do
  for k:= n downto 1 do
   a[i,k]:=0;
  x:=0;
  a[1,n]:=b;
  i:=1;
  while i < 40 do
  begin
   for k:= n downto 1 do
    begin
        a[2,k]:=a[1,k]*b+x;
         if (a[2,k] > 9) then 
          begin
           x:= a[2,k] div 10;
           a[2,k]:= a[2,k] mod 10;
          end else x:=0;
      end;
   for k:= n downto 1 do
    a[1,k]:=a[2,k];
    i:=i+1;
  end;
 a[2,n]:= a[2,n]-1;
  j:=1;
 while a[2,j]=0 do
  j:= j+1;
 for k:= j to n do
   write(a[2,k]);
 end;
begin
 b:=3;
 deg(b);
end.

const nmax=500;
type ts = 0..9; //тип цифры
chislo=array[1..nmax] of ts;//массивы-числа
procedure nul(var a:chislo); //обнуление числа
var i:integer;
begin
for i:=1 to nmax do
a[i]:=0;
end;
function kol(const a: chislo):integer;//определение длины числа
var i:integer;
begin
i:=nmax;
while(a[i]=0)and(i>1) do
i:=i-1;
kol:=i;
end;
procedure umn(var a,b,c:chislo);//собственно умножение
var i,g,n,m:integer;
    p:0..9;
    v:byte;
begin
nul(c);
m:=kol(a);
n:=kol(b);
for i:=1 to m do
 begin
  p:=0;
  for g:=1 to n do
   begin
     v:=a[i]*b[g]+p+c[i+g-1];
     c[i+g-1]:=v mod 10;
     p:=v div 10;
   end;
  c[i+n]:=p;
 end;
for i:=1 to nmax do
a[i]:=c[i];
end;
procedure pechat(var a : chislo); //печать длинного числа
var i:integer;
begin
for i:=kol(a) downto 1 do
write(a[i]);
writeln;
end;
var a,b,c:chislo;i,k:integer;
begin
a[1]:=4;
b[1]:=4;
for i:=2 to 500 do
 begin
  umn(a,b,c);
  for k:=1 to nmax do
  a[k]:=c[k];
 end;
pechat(c);
end.

uses crt;
function digits(i:byte;s:string):byte;
var k:byte;
begin
if s[i] in ['0'..'9'] then inc(k);
if i<length(s) then k:=k+digits(i+1,s);
digits:=k;
end;
 
var s:string;
begin
clrscr;
writeln('Введите строку, содержащую цифры:');
readln(s);
write('Количесво цифр=',digits(1,s));
readln
end.