Составьте программу, которая выводит только нечетные символы введенного текса.
это по паскалю авс

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