Перевод из Delphe на С++, Помогите перевести прграмму, ато при моём переводе получается уйма оши Опции

[stepansiy1]

var sn,s:string;
    l,k,kod:integer;
    v,p:real;
begin
writeln('Введите строку');
readln(s);
l:=length(s);
p:=1; k:=1;
repeat
  sn:='';
  while (s[k]>='0')and(s[k]<='9')and(k<=l) do
   begin
    sn:=sn+s[k];
    k:=k+1;
   end;
   if sn<>'' then
   begin
    val(sn,v,kod);
    p:=p*v;
   end;
   k:=k+1;
   until k>l;
   writeln(' p=',p);
end.

Помогите перевести, ато нужно очень срочно сдать

[stepansiy1]

Спасибо большое за помощь

Добавлено через 9 мин.
c:\ðàáîòà\îàèï\ñè++ âèñóàë\vc98\include\ios(9) : fatal error C1083: Cannot open include file: 'streambuf': No such file or directory выбивается такая ошибка помогите