Блок примеров C#

[sorcerer]

будьте добры реализовать примеры в c#
нашол эти задачи только в паскале
а как в c# их делать я не знаю
заранее благодарен

14)Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого набора вывести номер его первого элемента, равного 2, или число 0, если в данном наборе нет двоек.

uses crt;
const nmax=20;
var k,n,a,i,j,i1:integer;
    f:boolean;
begin
clrscr;
write('Количество наборов K=');
readln(k);
write('Количество чисел в наборе N=');
readln(n);
writeln('Введите наборы чисел:');
for i:=1 to k do
 begin
  writeln('Набор ',i);
  i1:=0;f:=true;
  for j:=1 to n do
   begin
    readln(a);
    if (a=2) and f then
     begin
      i1:=j;
      f:=false;
     end;
   end;
  writeln('Номер первого числа 2=',i1);
 end;
readln
end.

15) Описать процедуру AddRightDigit(D, K), добавляющую к целому положительному числу K справа цифру D (D — входной параметр целого типа, лежащий в диапазоне 0–9, K — параметр целого типа, являющийся одновременно входным и выходным). С помощью этой процедуры последовательно добавить к данному числу K справа данные цифры D1 и D2, выводя результат каждого добавления.

Program Proc_1;
  Uses Crt;
  Var
    d,i : integer;
    k : longint;
 
  Procedure AddRightDigit(d :integer;
                          var k : longint);
    Var
    Begin
k:=k*10+d;
    End;
 
BEGIN
  ClrScr;
  Write('Vvedite 4islo-> ');  Readln(k);
  For i:= 1 to 2 do
  Begin
    Repeat
      Write('Vvedite cifru->(0-9): ');  Readln(d);
    Until (d >= 0) and (d <= 9);
    AddRightDigit(d,k);
    Writeln('Rezultat: ',k);
  End;
  Readkey;
END.

18)Дано целое число N и набор из N целых чисел. Найти номера первого минимального и последнего максимального элемента из данного набора и вывести их в указанном порядке.

program zadacha;
uses crt;
var
a:array[1..100]of integer;
n,i,max,min,maxi,mini:integer;
writeln('vvedite N');
readln(n);
max:=-1;
min:=100;
for i:=1 to n do begin
a[i]:=random(100);
write(a[i]:3);
if a[i]<min then begin
min:=a[i];
mini:=i;
end;
end;
writeln;
for i:=n downto 1 do begin
if a[i]>max then begin
max:= a[i];
maxi:=i;
end;
end;
writeln('pervuj minimalnui element ', mini, ' poslednij maksimalnuj ', maxi);
readln;
end.

19)Дан целочисленный массив размера N, все элементы которого упорядочены (по возрастанию или убыванию). Найти количество различных элементов в данном массиве.

program zadacha;
var n,i,k:integer;
chusla:set of integer;
a:array[1..10] of integer;
begin
write('Введите размер массива');
readln(n);
chusla:='';
kol:=0;
for i:=1 to N-1 do
  if a[i]<>a[i+1] then 
    begin
      Inc(kol);
      if i=N-1 then Inc(kol)
   end;
end;
writeln('количество различных элементов',k);
readln;
end.