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

program sentence;var s:string;i:integer;beginwriteln(\'Введите строку: \');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) doif (s[i] = \'и\') then writeln(i, \' \', s[i]);end.