Дана строка. Удвоить каждый символ строки,выбрать из нее символы кратные 4 и напечатать её наоборот.
Поясняю, символы кратные 4-ем, это значит каждый 4-ый символ строки.
"выбрать из нее символы кратные 4 и напечатать их (т.е. именно выбранные символы) напечатать наоборот".

Var
  s,s1:string;
  i,n:integer;
begin
  Write(Введите строку: ); Readln(s);
  s1:=;
  for i:=1 to Length(s) do s1:=s1+s[i]+s[i];
  n:=Length(s1);
  i:=n-(n mod 4);
  while igt;=4 do begin
    Write(s1[i]);
    i:=i-4
    end;
  Writeln
end.

Примеры
Введите строку: 123456789
8642

Введите строку: Слово
вл