Program abc;
var a,b,i: real;
begin
a:=10; // 10 км за день
b:=1; // счетчик дней
Repeat
a:=a+a*0.1; // +10% от пробега предыдущего
b:=b+1; // счетчик дней
Until a>20; //суммарный пробег за все дни превысит 20км
writeln ('Пробег превысил 20км. на день № ',b);
Repeat
a:=a+a*0.1; // +10% от пробега предыдущего
b:=b+1; // счетчик дней
Until a>100; //суммарный пробег за все дни превысит 100км
writeln ('Пробег превысил 100км. на день № ',b);
<span>end.</span>
var m,s,b,a:integer;
begin
writeln ('Введите степень:');
read (m);
b:=3;
s:=1;
for a:=1 to m do begin
s:=s*b;
end;
writeln('3 в степени ',m,': ',s);
end.
21*1024=21504 байт*8=172032 бита
172032/28672= 6 бит - вес одного символа.
2^6 = 64
мощность алфавита равна 64.
В конце программы пропущен end;
И еще не описан массив Dt