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