Заполнить таблицу 1) информац. система 2) фирма-разработчик 3)функциональные характер. 4) организации, исп. ис

Var s: string;     n,k: integer; begin     write('строка: ');   readln(s);     n: =pos(' ',s);     if n> 0 then      begin       writeln('первая буква второго слова: ',s[n+1]);       writeln('последняя буква:   ',s[length(s)]);       writeln('количество букв:   ',length(s)-n);       k: =0;         for n: =1 to length(s) do        if s[n]='a' then k: =k+1;       if k> 0 then writeln('количество букв a: ',k)       else writeln('в строке нет буквы a');     end     else writeln('в строке одно слово'); end.

Ну если разобрать так то в условии говорят что " двое учеников говорят правду наполовину, а один – лжет.". и хотел бы приметить что в своих ответах с и в указывали на к. это бы был бы как 1 из вариантов ответа, но есть 1 но, в своих ответах с и к говорили за себя, а в говорит за других. мне кажется что тем кто соврал  в  потому-что по логике учетелей каждый должен говорить за себя.и ещё кое-что мне кажется вопрос явно не по информатике тут скорее психология ( ведь спрашивают кто соврал)