Дана строка. удвоить каждый символ строки, выбрать из нее символы кратные 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 i>=4 do begin
    Delete(s1,i,1);
    i:=i-4
    end;
  for i:=Length(s1) downto 1 do Write(s1[i]);
  Writeln
end.

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

Введите строку: 123456789
99877655433211

Если друг оказался вдруг
И не друг, и не враг, а - так,
Если сразу не разберешь,
Плох он или хорош, -
Парня в горы тяни - рискни!
Не бросай одного его,
Пусть он в связке в одной с тобой -
Там поймешь, кто такой.

Если парень в горах - не ах,
Если сразу раскис и - вниз,
Шаг ступил на ледник и - сник,
Оступился - и в крик, -
Значит, рядом с тобой - чужой,
Ты его не брани - гони:
Вверх таких не берут, и тут
Про таких не поют.

Если ж он не скулил, не ныл,
Пусть он хмур был и зол, но - шел,
А когда ты упал со скал,
Он стонал, но - держал,
Если шел за тобой, как в бой,
На вершине стоял хмельной, -
Значит, как на себя самого,
Положись на него.

Если друг оказался вдруг
И не друг, и не враг, а - так,
Если сразу не разберешь,
Плох он или хорош, -
Парня в горы тяни - рискни!
Не бросай одного его,
Пусть он в связке в одной с тобой -
Там поймешь, кто такой.

Если парень в горах - не ах,
Если сразу раскис и - вниз,
Шаг ступил на ледник и - сник,
Оступился - и в крик, -
Значит, рядом с тобой - чужой,
Ты его не брани - гони:
Вверх таких не берут, и тут
Про таких не поют.

Если ж он не скулил, не ныл,
Пусть он хмур был и зол, но - шел,
А когда ты упал со скал,
Он стонал, но - держал,
Если шел за тобой, как в бой,
На вершине стоял хмельной, -
Значит, как на себя самого,
Положись на него.