Помогите перевести в с++

[V1l1a1d]

program Param43;
type
St=String;
SArray= array [1..10] of string;

var
S:St;
i,N:integer;
W:SArray;

function DeCompressStr(S:St):St;
var
i,i2,Num,error:integer;
Stemp,SNum:String;
C:Char;
begin
i:=0;
Result:='';
While i<=length(s) do
begin
inc(i);
C:=S[i];
if (i=length(S)) or (S[i+1]<>'{') then Num:=1
else
begin
inc(i,2);
SNum:='';
while S[i]<>'}' do
begin
SNum:=SNum+S[i];
inc(i);
end;
val(SNum,Num,error);
end;
for i2:=1 to Num do result:=result+C;
end;
end;

begin
for i:=1 to 5 do
begin
Write('S:');
Readln(S);
Writeln(DeCompressStr(S));
end;
end.

[Alex11223]

Вы не перепутали "помогите" и "сделайте за меня"?
Тут не бесплатное бюро переводов.

Назовите нормально тему, покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.