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

паскаль

Var

i:integer;

n:boolean;

str:string;

begin

readln (str);

n:=false;

for i:=1 to length (str) do begin

if (i mod 2 0) and (str[i] = 'н') then begin

writeln ('Буква н ', 'стоит на месте ', i); n:=true; end; end;

if n = false then

writeln ('Букв "н", стоящих на нечетных местах, в предложении не обнаружено!');

end.