Дана строка. Если количество символов в ней нечетно ,то выведите на экран средний символ строки. Задача Паскаль.

Вы выводите последний символ. А не средний.

щас исправлю

 var   s : string;   l : integer; begin  readln (s);  l := Length(s);   if l mod 2 = 1 then    writeln (s[l div 2 + 1]); end.