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

Var

s:string;

n:integer;

begin

Writeln ('Введите строку с длиной, кратной трем:'); Readln (s);

n:=Length (s) div 3;

Delete (s, n+1, n);

Write ('Результат: ', s)

end.

Тестовое решение:

Введите строку с длиной, кратной трем:

Из строки середина будет удалена!

Результат: Из строки ет удалена!