В общем код программы написан верно, кроме одной, незначительный на первый взгляд, ошибки...
В конце каждого оператора должна стоять точка с запятой! return - это тоже оператор!
Так вот, после return 0 должна стоять ;, а уже потом }
<em> case 100: cout << "Till snimaet shlyapky, Manson nervno kyrit:D Molodet!"; break;</em>
<span><em> } return 0;}</em></span>
Var i: integer;
a, b:real;
begin
i := 1;
a := 0;
while(i<=9999) do begin
a := a + 1 / i;
i := i + 2;
end;
i := 2;
b := 0;
while(i<=10000) do begin
b := b + 1 / i;
i := i + 2;
end;
writeln(a-b);
<span>end.</span>
Используется 7 букв, для одной i=3 бит, 1 пароль : 3•12:8≈5 байт;
40 паролей:
40•5=200 байт
===== PascalABC.NET =====
begin
var Д := ArrRandom(10, -10, 40);
Д.Println;
Д.Sort;
Д.Println
end.