{ программа вычисляет 2 в степени d. }
uses crt;
var
A, B: array[0..100000]of integer;
j, K, i, c, D, N, M: integer;
begin
//clrscr;
write('Введите показатель степени: ');
read(D);
A[1] := 1;
M := 1;
N := D;
for j := 1 to N do
begin
c := 0;
for i := M downto 1 do
begin
B[i] := (2 * A[i] + c) mod 10; c := (2 * A[i] + c) div 10;
end;
if c > 0 then
begin
A[1] := c;
for i := 1 to M do A[i + 1] := B[i];
inc(M);
end
else
for i := 1 to M do A[i] := B[i];
end;
writeln;
writeln(' 2 в степени ', D, ':');
for i := 1 to M do write(A[i]);
writeln;
writeln;
writeln('Количество цифр числа: ', M);
writeln;
textcolor(red);
readln;
end.