Дано произвольная символьная строка.узнать её длинну и копировать из строки s 3 символа начиная с позиции 4.

исправим ошибки в коде выше.

uses crt;

var s: string; beginwrite('введите строку: '); read(s); writeln('длина строки: ',length(s)); writeln(copy(s,4,3)); end.

вот так работает корректней.

var s,a: string; i,d: integer; begind: =0; write('введите что угодно: '); readln(s); for i: =1 to length(s) do  d: =d+1; writeln('длина строки: ',d); a: =copy(s,3,4); writeln(a); end.

если первый лжец, то второй правдец, третий лжец, четвертый правдец, пятый лжец, тогда первый должен быть правдец, а он лжец. не может быть.

если первый правдец, то второй лжец, третий правдец, четвертый лжец, пятый правдец, тогда первый должен быть лжец, а он правдец. не может быть. 

вывод: некорректно, так как не может быть нечетное число коротышек.

если четное число коротышек, то половина лжецы, а половина правдецы.