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