Здравствуйте, помогите пожалуйста перевести в язык С++ с Паскаль...

Question

Первый вопрос: program zadnie2; usescrt; var a, b: integer; s1, s2: real; begin writeln ('vvedite radius kruga'); readln (a); writeln ('vveditedlinustoronikvadrata'); readln (b); s1:=3.14*sqr(a); s2:=sqr(b); if s1>s2 then writeln ('ploshadkrugabolsheploshadikvadrata: ', s1, '>', s2) elsewriteln ('ploshadkvadratabolsheploshadikruga: ', s1, '<', s2); end. Второй вопрос: programzadacha; var a:array[0..9] of longint; i,j,k:integer; begin a[0]:=1; For i:=1 to 9 do a:=a[i-1]*i; for i:=1 to 9 do for j:= 0 to 9 do For k:=0 to 9 do if a+a[j]+a[k]=i*100+j*10+k then writeln(a,'+',a[j],'+',a[k],'=',i*100+j*10+k); end. Третий вопрос: Var A:array[1..100] of integer; i,n,t:integer; Begin write('Vvediterazmernost ');readln(n); writeln('Ishodnimassiv: '); For i:=1 to n do Begin A:=random(30)-15; write(A:4); End; writeln; writeln('Preorazovani: '); i:=0; While i; A:=A[i+1]; A[i+1]:=t; inc(i,1); End; For i:=1 to n do write(A:4); readln; End.

Екатерина · Accepted Answer

Существуют программы автоматического перевода, наподобие P2C. 
Погугли на "p2c pascal to c translator"