может кто перевести программу из pascal в C#

[medved2800]

В одномерном массиве, состоящем из и вещественных элементов, вычислить:
• количество элементов массива, меньших С;
• сумму целых частей элементов массива, расположенных после последнего отрицательного
элемента.
Преобразовать массив таким образом, чтобы сначала располагались все элементы,
отличающиеся от максимального не более чем на 20%, а потом — все остальные.

const n=5;
 var a: array[1..n] of integer;
 x,k,i,j,c,sum,max:integer;
 koff:real;
 begin
 writeln('введите n');
 for i:=1 to n do read(a[i]);
 readln;
 begin
 k:=0;
 writeln('введите c');
 readln(c);
 for i:= 1 to n do
 if a[i]<c then inc(k);
 writeln(k);
 readln;
 end;
 begin
 sum:=0;
 for i:= 1 to n do
 if a[i]<0 then sum:= sum*0
 else sum:=sum +a[i] ;
 writeln('сумма равна' ,sum);
 readln;
 end;
 begin
 max:=a[i];
 for i:=1 to n do
 if a[i]>max then max:=a[i];
 k:=0;
 for i:=1 to n do
 if (max-a[i])/max<=0.2 then
 begin
 k:=k+1;
 x:=a[i];
 for j:=i downto k+1 do
 a[j]:=a[j-1];
 a[k]:=x;
 end;
 writeln('Перестановка:');
 for i:=1 to n do
 write(a[i]:4);
 readln
 end;
 end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.