Дана строка C определить какие буквы стоят на нечетных местах и вывести их

var s:string;

i:integer;

begin

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

readln (s);

write ('Нечётные символы: ');

for i:=1 to length(s) do

if i mod 2 <> 0 then write (s[i],' ')

end.