Помогите с переводом из Pascal'а в C++!

Кароче такое дело! Нужно перевести прогу из Pascal в C++, это задание к курсачу, и сдать его надо уже до 15 числа... Если кто возьмётся за перевод не обижу. Деньги переведу на электронный кошель. вот текст проги в паскале:

Code:

{
Written by Fyodor Menshikov 27.09.2002
23:02-23:13
I/O file name changed 12.01.2004
}
{$R+,Q+}
type
   tnumber=array[1..21]of integer;
   {for 100 of 1s the result is 573_147_844_013_817_084_101}

   procedure set1(var n:tnumber);
   var
      i:integer;
   begin
      for i:=low(n) to high(n) do
         n[i]:=0;
      n[low(n)]:=1;
   end;

   procedure add(var n1:tnumber;n2,n3:tnumber);
   var
      i,c:integer;
   begin
      c:=0;
      for i:=low(n1) to high(n1) do begin
         c:=c+n2[i]+n3[i];
         n1[i]:=c mod 10;
         c:=c div 10;
      end;
      if c<>0 then
         halt(1);
   end;

   procedure print(n:tnumber);
   var
      i:integer;
   begin
      for i:=high(n) downto low(n) do
         if n[i]<>0 then
            break;
      for i:=i downto 1 do
         write(n[i]);
   end;

var
   cur,next,nnext:tnumber;
   num:string;
   i:integer;
begin
   assign(input,'message.in');
   reset(input);
   readln(num);
   set1(next);{one decrypting of 1 (last) digit}
   set1(nnext);{one decrypting of empty string}
   for i:=length(num)-1 downto 1 do begin
      if (num[i]='0')or(num[i]>'3')or(num[i]='3')and(num[i+1]>'3') then
         cur:=next
      else
         add(cur,next,nnext);
      nnext:=next;
      next:=cur;
   end;
   assign(output,'message.out');
   rewrite(output);
   print(next);
end.

 

Постучи в личку и кинь аську... свяжусь с тобой обсудим.

 

Еще актуально?

 

>>то задание к курсачу, и сдать его надо уже до 15 числа...

насколько я понимаю, нет. сегодня 17-е. тема закрыта