Перевести с Pascal в C# - C# (218345)

program test (input,output);
var  
   x:array[1..5] of real; 
   y:array[1..5] of real;
   k:array[1..4] of real;
   l:array[1..4] of real; 
   i:integer;
   d24,d13:real;
   xn,yn,xk,yk:real;
   function DL(xn,xk,yn,yk:real):real;
     begin
     DL:=sqrt(sqr(xn-xk)+sqr(yn-yk));
     end;(*DL*)
   function KOEF(xn,xk,yn,yk:real):real;
     begin
     KOEF:=(yn-yk)/(xn-xk);
     end;(*KOEF*) 
  BEGIN
  writeln('введите координаты x,y 4 точек на плоскости
');
   for i:=1 to 4 do 
     begin
     writeln('x',i);
     readln(x[i]);
     writeln('y',i);
     readln(y[i]);
     end;
     (*вычисление длинн отрезков*)
   x[5]:=x[1]; y[5]:=y[1];
   for i:=1 to 4 do 
     begin
     l[i]:=DL(x[i],x[i+1],y[i],y[i+1]);
     writeln('l',i,'=',l[i]:4:1);
     end;
     (*вычисление коэффициентов угла наклона*)
   for i:=1 to 4 do 
     begin
     if x[i]<>x[i+1] then k[i]:=KOEF(x[i],x[i+1],y[i],y[i+1]);
     writeln('k',i,'=',k[i]:4:1);
     end;
(*вычисление длинн диагоналей*)      
      d24:=DL(x[2],x[4],y[2],y[4]);
      d13:=DL(x[1],x[3],y[1],y[3]);
(*определение вида четырехугольника*)      
if ((x[1]=x[2]) and (x[3]=x[4])) or (k[1]=k[3]) 
      then
        begin
            if ((x[1]=x[4]) and (x[2]=x[3])) or (k[2]=k[4]) 
            then
              begin
                if (l[1]=l[2])  and (l[2]=l[3]) and (l[3]=l[4]) 
                then
                  begin
                    if d24=d13 then writeln(' это квадрат ')
                               else writeln('это ромб ')
                  end
                else
                  begin 
                    if d24=d13 then writeln('это прямоугольник ')
                               else writeln('Лќэто паралелограмм ')
                  end
              end   
            else writeln('это трапеция ')
          end
        else if ((x[1]=x[4]) and (x[2]=x[3])) or (k[2]=k[4])
             then writeln('это трапеция)
             else writeln(' это четырехугольник общего вида');
     END.