Преобразовать код из Pascal в C#

[Knuckles_pixel]

Прошу помочь (2 вариант решения на Pascal снизу)


var n := ReadLnInteger('Введите количество элементов множества X1:');
var x1 := HSet(ReadArrInteger('Введите элементы множества X1:', n));
n := ReadLnInteger('Введите количество элементов множества X2:');
var x2 := HSet(ReadArrInteger('Введите элементы множества X2:', n));
n := ReadLnInteger('Введите количество элементов множества X3:');
var x3 := HSet(ReadArrInteger('Введите элементы множества X3:', n));
var y := (x1 * x2) * (x1 * x3) * (x2 * x3);
var y1 := HSet(y.Where(x -> x mod 7 = 0));
n := y1.Count; Println('Множество X1:', x1);
Println('Множество X2:', x2);
Println('Множество X3:', x3);
Println('Множество Y:', y);
Println('Множество Y1:', y1);
$'Мощность множества Y1: {n}'.PrintLn





Второй вариант решения на Pascal:

sob = set of byte;

procedure ReadSet(s: string; var m: sob);
var
i, t, n: byte;
begin
write('Введите количество элементов множества ', s, ': ');
readln(n);
writeln('Введите элементы множества ', s, ':');
for i := 1 to n do
begin
read(t);
include(m, t)
end;
readln
end;

procedure PrintSet(s: string; var m: sob);
var
i: byte;
d: string;
begin
writeln('Множество ', s, ':');
write('[');
d := '';
for i := 0 to 255 do
if i in m then
begin
write(d, i);
d := ','
end;
writeln(']')
end;

var
x1, x2, x3, y, y1: sob;
var i, p: byte;
begin
ReadSet('X1', x1);
ReadSet('X2', x2);
ReadSet('X3', x3);
y := (x1 * x2) * (x1 * x3) * (x2 * x3);
y1 := [];
p := 0;
for i := 0 to 255 do if (i in y) and (i mod 7 = 0) then
begin
include(y1, i);
inc(p)
end;
writeln;
PrintSet('X1', x1);
PrintSet('X2', x2);
PrintSet('X3', x3);
PrintSet(' Y', y);
PrintSet('Y1', y1);
writeln('Мощность множества Y1: ', p);
readln
end.

[Knuckles_pixel]

___