Перевод с Pascal на С++

[Anni03]

Помогите пожалуйста с переводом! Задачи решила на паскале, переписать на с++ не получается! Заранее благодарна за помощь!
1.

var
  i, n, x: integer;
  {x: double;}
  s: string;
begin
  write('Введите n: '); readln(n);
  x:=0; s:=''; i:=1;
  while Length(s)<n do
    begin
      x:=sqr(i);
      s:=s+IntToStr(x);
      i:=i+1;
    end;
  writeln('Строка: ', s);
  writeln('Результат: ',s[n]);
end.

2.

var
  A,B,C,D : integer;
  n, x, y: integer;
function NOD(a,b: integer): integer;     //Применим алгоритм Евклида с вычитанием
begin
  while a <> b do 
    if a > b then 
      a := a - b 
    else 
      b := b - a;
  Result:=a;
end;
begin
  write('Введите A,B,C,D: '); readln(A,B,C,D);
  x:=A*C; y:=B*D;
  if y=0 then writeln('Error')
  else
    n:=NOD(x,y);
  writeln('Дробь: ',x,'/',y, ' НОД: ', n);
  writeln('Правильная дробь: ',x div n,'/',y div n);  
end.

3.

const
  n = 100;
var
  i, x: integer;
  a: array[1..n] of integer;
function Prost(x: integer): boolean;    
var
  i, j: integer;
begin
result:=true;
if x=1 then result:=false;
for i:=2 to x-1 do
  if ((x mod i)=0) and (x<>i) then Result:=false;  
end;
begin
  x:=1; Randomize;
  for i:=1 to n do
    begin
      a[i]:=-10+Random(20);
      if Prost(i) = true then 
        begin 
          write(' (',a[i],')'); 
          x:=x*a[i];
        end
      else
        write(' ',a[i])
    end;
  writeln;  
  writeln('Результат: ', x);  
end.