Question

Дана непустая строка S. Вывести четные символы
строки.

Answer 1

var
  i:integer;
  s,t:string;
begin
writeln ('Введите строку');
readln(s);
i:=2;
while i<=length(s) do
  begin
  t:=t+s[i];
  i:=i+2;
  end;
writeln(t);
end.