Помогите пожалуйста перевести программу с Паскаля на С++

[Taras_rom]

program laboratorna1;
uses crt;
type ar=array[0..10,1..2] of real;
var j,n,i:integer;
a:ar;
s:real;
function taras(n:integer; a:ar):real;
var i:integer;
s:real;
begin
s:=0;
a[0,1]:=a[n,1];
a[0,2]:=a[n,2];

for i:=0 to n-1 do
s:=s+(a[i,1]+a[i+1,1])*(a[i,2]-a[i+1,2]);
taras:=abs(s)/2;
end;
begin
clrscr;
writeln('vvedit n');
readln(n);
for i:=1 to n do
begin
for j:=1 to 2 do
begin
write('a[',i,',',j,']');
read(a[i,j]);
end;
end;
s:=taras(n,a);
write('s=',s:5:2);
readkey;
end.