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

Question

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

Answer 1

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