К какому интервалу принадлежит данное действительное число d - Pascal ABC

Формулировка задачи:

Проверить, какому интервалу принадлежит данное действительное число d: (-16, 2), (4, 10) или (14, 36). Если число d не принадлежит не одному из интервалов, то выдать соответствующее сообщение. И если не сложно в Си# как эта же задача будет выглядеть?

Решение задачи: «К какому интервалу принадлежит данное действительное число d»

Листинг программы

var d:real;
begin
  Write('Введите число d: ');
  Readln(d);
  if(d > -16) and (d < 2) then Writeln('d принадлежит отрезку (-16, 2)')
  else if(d > 4) and (d < 10) then Writeln('d принадлежит отрезку (4, 10)')
  else if(d > 14) and (d < 36) then Writeln('d принадлежит отрезку (14, 36)')
  else Writeln('Число d не принадлежит не одному из интервалов');
  Readln;
 end.

Объяснение кода листинга программы

var d: real; - объявление переменной d типа real
Write('Введите число d: '); - выводить сообщение для ввода числа d
Readln(d); - считывать введенное пользователем значение числа d
if(d > -16) and (d < 2) then Writeln('d принадлежит отрезку (-16, 2)'); - проверка условия и вывод сообщения в зависимости от значения d
else if(d > 4) and (d < 10) then Writeln('d принадлежит отрезку (4, 10)'); - проверка условия и вывод сообщения в зависимости от значения d
else if(d > 14) and (d < 36) then Writeln('d принадлежит отрезку (14, 36)'); - проверка условия и вывод сообщения в зависимости от значения d
else Writeln('Число d не принадлежит не одному из интервалов'); - вывод сообщения если ни одно из условий не выполняется
Readln; - считывать символ новой строки после ввода данных
end.; - закрытие блока кода