<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var n:=ReadInteger('n=');
Writeln(1.To((n+10) div 2).JoinIntoString('')[n]);
end.
Во 2 строке добавляется только 1 число, поэтому дальше будет выход за границы листа.
Чтобы исправить: добавлять значения в цикле и в 3 строке range(len(A)) => range(len(A)-1)
Program kids;
var m,j,Summa:<em>integer</em>;
begin
writeln('На сколько мальчиков больше ?'); readln(m);
j:=15;
Summa:=j+(m+j);
writeln('В нашем классе ',Summa,' человек.');
readln;
end.
________
j - это сумма девочек, а m+j - это сумма мальчиков.
Нужно умножить 512 битов на 64 символа;
512*64 = 32 768 - символов в алфавите.
А где тест/ задание?
сфоткай