{* Задача 33 *}

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

Program zadacha33;

Uses zadach33.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.