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