Дана строка. Если ее длина есть число нечетное ,то удалить два первых символа . В противном случае после среднего символа вставить строку '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.