Дана строка. Если ее длина есть число нечетное ,то удалить два первых символа . В...

Question

Дана строка. Если ее длина есть число нечетное ,то удалить два первых символа . В противном случае после среднего символа вставить строку 'www'

Answer 1

Var
  s:string;
  n:integer;
begin
  Readln(s);
  n:=Length(s);
  if Odd(n) then Delete(s,1,2)
  else Insert('www',s,n div 2+1);
  Writeln(s)
end.