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

uses crt;
var s,sn: string;
nbsp;nbsp;nbsp;nbsp;i,j,k: byte;
begin
write(s=); readln(s); sn:=;
i:=length(s); k:=0;
if length(s) mod 2=0 then j:=length(s) div 2
nbsp;nbsp;nbsp;else j:=length(s) div 2+1;
for i:=length(s) downto j do
nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;sn:=sn+s[i];
nbsp;nbsp;nbsp;nbsp;if klt;length(s) div 2 then
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;inc(k);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;sn:=sn+s[k];
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;nbsp;nbsp;end;
writeln(sn);
readln;
end.