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

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