{* Задача 20 *}

Unit ZADACH20;
Interface
Implementation
Begin
 writeln('Из строки удалить среднюю букву, если длина строки нечётная, иначе - удалить две средние буквы');
End.

Program zadach20;

Uses zadach20.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  str : String;
  i   : integer;
Begin
  writeln('Stroka: ');
  readln(str);
  If odd(length(str)) Then
    delete(str,((length(str) Div 2) + 1), 1)
  Else delete(str,(length(str) Div 2), 2);
    writeln('Resultat: ');
  writeln(str);
End.