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

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