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

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.