Дан текст.Вывести все буквы, которые находятся ** нечётных позициях

Question

Дан текст.Вывести все буквы, которые находятся на нечётных позициях

Answer 1

Var s:string;
 i:integer;
begin
writeln('Введите строку');
readln(s);
for i:=1 to length(s)
 do if i mod 2 =1 then write(s[i]);
end.