кто сможет перевести с Паскаля на C++

[dog1413]

Дан набор из 10 чисел. Создать две очереди: первая должна содержать числа из исходного набора с нечетными номерами (1, 3,..., 9), а вторая - с четными (2, 4,..., 10); порядок чисел в каждой очереди должен совпадать с порядком чисел в исходном наборе. Вывести указатели на начало и конец первой, а затем второй очереди.
[B]program Pointer15;
type
PNode=^TNode;
TNode=record
Data: Integer;
Next: PNode;
// Prev: PNode;
end;

procedure Add(var P1,P2:PNode;D:integer);
var
p :PNode;
begin
new(p);
p^.data:=D;
p^.next:=nil;
if P2<>nil then
begin
P2^.Next:=P;
P2:=P2^.Next;
end
else
begin
P1:=p;
P2:=p;
end;
end;

var
Even1,Even2,Odd1,Odd2:PNode;
a:^Word;
i,D:integer;
begin
new(Even1);
new(Even2);
new(Odd1);
new(Odd2);
Even1:=nil;
Even2:=nil;
Odd1:=nil;
Odd2:=nil;

for i:=1 to 10 do
begin
Write('num:');
Readln(D);
if odd(i) then Add(Odd1, Odd2,D)
else Add(Even1,Even2,D);
end;

a:=Addr(Odd1);
Writeln('odd_begin',a^);

a:=Addr(Odd2);
Writeln('odd_end',a^);

a:=Addr(Even1);
Writeln('Even_begin',a^);

a:=Addr(Even2);
Writeln('Even_end',a^);
end.