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.
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.