Дано слово. Если его длина нечётная, то удалить среднюю букву, в противном случае - две буквы

Program programma;

uses crt;

var s, rez: string;

L: integer;

Begin clrscr;

write ('Введите слово: ') ;

readln (s) ;

l: = length (s) ;

if l mod 2 = 1 then

rez: = copy (s, 1, (l div 2)) + copy (s, ((l div 2) + 2), (l div 2))

else

rez: = copy (s, 1, (l div 2) - 1) + copy (s, ((l div 2) + 2), (l div 2)) ;

writeln (rez) ;

end.