Информатика 9 класс. Составить программку нахождения средней буковкы в слове. В

var

 Word: string;

 i: Integer;

begin

 Write ('Введите слово: ');

 Read (Word);

 if (Length (Word) mod 2) lt;gt; 0 then begin         // проверка на нечетность количества букв

   i := (Length (Word) div 2) + 1;              // i = индекс средней буковкы

   WriteLn ('Средняя буква = "', Word [i], '"');

 end else begin

   WriteLn ('Слово состоит из четного количества букв');

 end;

end.