Какие проблемы, связанные с экономикой, решал Святослав в ходе своих завоевательных походов?

uses crt;
var
s, f: string;
i: integer;

begin
write('введите строку: ');
readln(s);
for i:=length(s) downto 1 do
if i mod 2=0 then
delete(s,i,1);
writeln('результирующая строка: ',s);
end.