нужно переделать код с паскаля на си шарп
Программа определяет, какую из осей пересекает
отрезок, соединяющий две точки
program hr;
var x1,y1,x2,y2:real;
da:boolean;
begin
write('Vvedite X1 dlia tociki A: '); readln(x1);
write('Vvedite Y1 dlia tociki A: '); readln(y1);
write('Vvedite X2 dlia tociki B: '); readln(x2);
write('Vvedite Y2 dlia tociki B: '); readln(y2);
writeln; writeln('A(',x1:0:2,',',y1:0:2,') & ','B(',x2:0:2,',',y2:0:2,')'); writeln;
da:=false;
if (x1>0) and(y1>0) and(x2<0) and(y2>0) then begin writeln('peresekaet osi "OY"'); da:=true;end;
if (x1>0) and(y1>0) and(x2<0) and(y2<0) then begin writeln('peresekaet osi "XY"'); da:=true;end;
if (x1>0) and(y1>0) and(x2>0) and(y2<0) then begin writeln('peresekaet osi "OX"'); da:=true;end;
if (x1<0) and(y1>0) and(x2<0) and(y2<0) then begin writeln('peresekaet osi "OX"'); da:=true;end;
if (x1<0) and(y1>0) and(x2>0) and(y2<0) then begin writeln('peresekaet osi "XY"'); da:=true;end;
if (x1<0) and(y1<0) and(x2>0) and(y2<0) then begin writeln('peresekaet osi "OY"'); da:=true;end;
if (x1<0) and(y1>0) and(x2>0) and(y2>0) then begin writeln('peresekaet osi "OY"'); da:=true;end;
if (x1<0) and(y1<0) and(x2>0) and(y2>0) then begin writeln('peresekaet osi "XY"'); da:=true;end;
if (x1>0) and(y1<0) and(x2>0) and(y2>0) then begin writeln('peresekaet osi "OX"'); da:=true;end;
if (x1<0) and(y1<0) and(x2<0) and(y2>0) then begin writeln('peresekaet osi "OX"'); da:=true;end;
if (x1>0) and(y1<0) and(x2<0) and(y2>0) then begin writeln('peresekaet osi "XY"'); da:=true;end;
if (x1>0) and(y1<0) and(x2<0) and(y2<0) then begin writeln('peresekaet osi "OY"'); da:=true;end;
if not da then writeln('Eti tociki ne peresekaiyt ni odny osi');
readln;
end.