Дана строка. Известно,что количество символов в строке кратно 3. Удалите из слова середину(то есть среднюю треть символов)

var  s:string;  n:integer;begin  Writeln('Введите строку с длиной, кратной трем:'); Readln(s);  n:=Length(s) div 3;  Delete(s,n+1,n);  Write('Результат: ',s)end.Тестовое решение:Введите строку с длиной, кратной трем:Из строки середина будет удалена!Результат: Из строки ет удалена!