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

program sentence;

var s:string;

i:integer;

begin

writeln ('Введите строку: ');

Readln (s);

for i: = 1 to length (s) do

if i mod 2 = 0 then write (i mod 10) else write (' ');

writeln ();

for i:=length (s) downto 1 do write (s[i]);

writeln ();

for i: = 1 to length (s) do

if (s[i] = 'и') then writeln (i, ' ', s[i]);

end.