Перевод кода из Pascal в C++

[AlexDolmat]

Народ прошу помощи с переводом кода
Паскаль в С ++
type
tList = class
a : Real;
n : tList;

constructor Create(index : Integer; next : tList);
begin
Write('a' + index.toString + ' =');
a := ReadlnReal();
n := next;
end;

function Find(x : Real) : Real;
var t : tList;
begin
Result := 0;
t := Self;
while t <> nil do
begin
Result := Result*x + t.a;
t := t.n;
end;
end;
end;

var
a : tList;

begin
Write('n =');
var n := ReadInteger();
a := nil;
for var i := 0 to n do
a := tList.Create(i, a);

Write('x =');
var x := ReadReal();
WriteLn('F(', x, ') = ', a.Find(x));
end.

[Desc]

Для чего такой г...й ?
Напишите свое на плюсах, много полезней...

[Desc]

Что за глюк?
Отправляю сообщение, появляется запрос входа. И после повторного входа на месте сообщения вместо текста какой-то глюк.

[AlexDolmat]

Desc, Отправь мне в личные сообщения

[Desc]

Платный конвертер: PASCAL to "C++", "CPP" Translator, Converter, Compiler.
Бесплатный конвертер: Pascal to C/C++ converter