Помогите перевести код с паскаля на си шарп

Вот код
Uses crt;
const dn:array[1..7]of string=('понедельник','вторник','среда','четверг',
'пятница','суббота','воскресенье');
var d,ch:byte;
begin
clrscr;
repeat
write('Введите номер дня недели от 1 до 7 d=');
readln(d);
until d in [1..7];
write(dn[d],' - ');
ch:=d;
while ch<=31 do
begin
if ch<=24 then write(ch,', ')
else write(ch);
ch:=ch+7
end;
readln
end.