Дана строка. вывести первый, последний и средний (если он есть)) символы. написать программу в паскале. надо

Var s: string; l: integer; begin write('введите строку: '); readln(s); writeln('первый символ: ',s[1]); l: =length(s); writeln('последний символ: ',s[l]); if l mod 2 = 1   then writeln('средний символ: ',s[l div 2+1])   else writeln('длина строки четна'); end. пример: введите строку: паскаль первый символ: п последний символ: ь средний символ: к

1)2 детей переплывут первыми

2) 2 ой возвращается

3)забирает взрослого( сам высажевается

4)(взрослый высажевается)сын плывет за другим

5) они возвращаются

в одном байте восемь бит. следовательно 100/8=12.5

  ответ 12.5