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

Var

s:string;

n:integer;

begin

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

n:=Length (s) div 3;

Delete (s, n+1, n) ;

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

end.

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

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

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

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