Дана строка 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.

Program god_japan; var y, y1: integer; color : integer; beast : integer; begin write('введите год'); readln(year); year1 : = ((year - 1984) mod 60 + 60) mod 60; beast : = year1 mod   12; color : = (year1 div 12) mod 5;   write(year, ' - год '); if beast in [2, 3, 4] then  case color of  0: write('зеленого');   1: write('красного');   2: write('желтого');   3: write('белого');   4: write('черного');   end else  case color of    0: write('зеленой');   1: write('красной');   2: write('желтой'); 3: write('белой');   4: write('черной');   end;   write(' '); case beast of  0: write('крысы'); 1: write('коровы'); 2: write('тигра');   3: write('зайца');   4: write('дракона');   5: write('змеи');   6: write('лошади'); 7: write('овцы');   8: write('обезьяны');   9: write('курицы');   10: write('собаки');   11: write('свиньи');   end;   writeln(); end.