Программа на Pascal:

program EverySecondChar;
var
str: string;
i: integer;
begin
writeln('Введите строку:');
readln(str);
writeln('Каждый второй символ в строке:');
for i := 1 to length(str) do
begin
if i mod 2 = 0 then
write(str[i]);
end;
writeln;
end.

Эта программа сначала запрашивает у пользователя ввод строки, а затем выводит на экран каждый второй символ из этой строки.