создайте программу, которая выводит из слова букву которая стоит посередине или в другом случае две по середине. Язык паскаль​

begin

 var s := ReadlnString();

 if s.Length.IsOdd then

   Write(s[(1 + s.Length) div 2])

 else

   Write(s[s.Length div 2], s[s.Length div 2 + 1])

end.