с решение данной задачи

4 дороги. . задание не сложное . разобраться легко, успехов )

81920 бит : 8 = 10240 байт

10240 байт : 1024 = 10 килобайт

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.