Написать программу на Pascal ABC. Дано предложение. Вывести строку в обратном порядке. Вывести столбиком все его буквы "и", стоящие на четных местах.

var   str : string;   i, count : integer; begin   {часть 1 - обратный порядок}   write('Введите строку: ');   readln(str);   write('Результат: ');   for i := length(str) downto 1 do     write(str[i]);   {часть 2 - считаем "и"}   count := 0;   for i := 1 to length(str) do     if (str[i] = 'и') and (i mod 2 = 0) then       count := count + 1;   writeln;           {переходим на следующую строку}   for i := 1 to count do     writeln('и'); end.