Создайте из четных символов строки st1 строку str2 и из нечетных символов — строку str3.
Решение:
var str1,str2,str3: string; l,i: byte; begin readln(str1); str2 := ''; str3 := ''; l := length(str1); for i:=1 to l do if odd(i) then str3 := str3 + str1[i] else str2 := str2 + str1[i]; writeln(str2); writeln(str3); end.