Дана строка. Удвоить каждый символ строки,выбрать из нее символы кратные 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 i>=4 do begin    Write(s1[i]);    i:=i-4    end;  Writelnend.ПримерыВведите строку: 1234567898642Введите строку: Слововл