Witam wszystkich ... czy ktoś jest w stanie przerobić na C# ? ... z góry dziękuję
{$apptype console}
uses
SysUtils;
Var x, y: array [0..16] of Real;
i, d :Integer;
p1, pole :Real;
Begin
Writeln ('Program Oblicza pole powierzchni dowolnego wielokata');
Writeln;
Repeat
Write ('Podaj ilosc wierzcholkow wielokata (3-15) ');
Readln (d);
Writeln;
Writeln ('wprowadz wspolrzedne wierzcholkow');
Writeln;
until (d>2) and (d<=15);
For i:=1 to d do
Begin
Write ('Podaj wspolrzedna X ',i,' = ');
Readln ( x[i] ) ;
Write ('Podaj wspolrzedna Y ',i,' = ');
Readln ( y[i] ) ;
Writeln;
end;
y[0] := y[d];
y[d+1] := y[1];
p1:=0;
For i:=1 to d do
Begin
p1:= p1+x[i]*(y[i+1]-y[i-1]);
end;
if p1<0 Then p1:=-p1;
pole:=p1/2;
writeln('Pole powierzchni wynosi =',pole1);
Readln;
end.