begin
var str:=ReadString('Введите строку').Length.Print
end.
Назвать дерево именем??/Ну пусть Анатолий будет! =)
Program Slovo;
var
s1,s2: string;
begin
s1:='абитуриент';
s2:=s1[2]+s1[5]+s1[9]+s1[10] ; //s1[2] = 'Б' s2[5]='у' s2[9]='н' s1[10]='т'
write(s2);
end.
Я так понимаю, это Access.
4. - г (сделать более простым ввод значений в поле)
5. - а
6. - б
7. - г
8. - а
9. - в
13. а,г