Дана строка-предложение. Зашифровать ее, поместив вначале все символы, расположенные на четных позициях строки, а затем, в обратном порядке, все символы, расположенные на нечетных позициях.

program zz1;

var s, s1:string; / / задаем переменные строкового типа

i, m, k:integer; / / задаем переменные целого типа

begin

write (' введите строку ');

read (s); / / вводим с клавиатуры строку

s1:='';

for i:=1 to length (s) do / / организуем цикл, в котором переберем все символы от первого до последнего

if i mod 2 = 0 then s1:=s1+s[i]; / / проверяем, если номер символа четный, то прибавляем его к новой строке

for i:=length (s) downto 1 do / / организуем цикл, в котором переберем все символы от последнего до первого

if i mod 2 = 1 then s1:=s1+s[i]; / / проверяем, если номер символа нечетный, то прибавляем его к новой строке

writeln (' полученная зашифрованная строка = ', s1); / / выводим ответ

end.