Буквоеды — опасные существа, которые обкусывают слово с двух сторон. продемонстрируйте этот процесс. формат ввода вводится одна строка. формат вывода выводится введённая строка; затем ещё раз она же, но без первого и последнего символа; затем ещё раз …l

Вот код:
word = input()
while len(word) >= 1:
print(word)
word = word[1:-1]

Var i,ne,ch,n:integer;
      a:array of integer; //объявление динамического массива
begin
write('Введите длину массива :');
readln(n);
randomize;
a:= new integer[n+1];// установка размера (n+1) динамического массива
for i:=1 to n do
      begin
      a[i]:=random(80)+20;
      write(a[i],' ');//Вывод на экран полученного массива                         
      if odd(a[i]) then inc(ne);// odd() - функция,определяющая нечетность числа.Возвращает значение True, если число нечетное
      end;                      //inc() - функция инкремент - увелечения на 1.
ch:= n-ne;
writeln;
writeln('Нечетные=',Ne);
writeln('Четные=',Ch);
end.

Var i,ne,ch,n:integer;
      a:array of integer; //объявление динамического массива
begin
write('Введите длину массива :');
readln(n);
randomize;
a:= new integer[n+1];// установка размера (n+1) динамического массива
for i:=1 to n do
      begin
      a[i]:=random(80)+20;
      write(a[i],' ');//Вывод на экран полученного массива                         
      if odd(a[i]) then inc(ne);// odd() - функция,определяющая нечетность числа.Возвращает значение True, если число нечетное
      end;                      //inc() - функция инкремент - увелечения на 1.
ch:= n-ne;
writeln;
writeln('Нечетные=',Ne);
writeln('Четные=',Ch);
end.