Дана строка. Удвоить каждый символ строки, выбрать из нее символы кратные 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