Музыкальные интервалы - PascalABC.NET

[Andrit]

Музыкальные интервалы.
Пусть есть такие типы данных:
Type Nota = (do, re, mi, fa, sol, la, si)
Interval = (secunda, tercia, quarta, quinta, seksta, septima)
Var n1, n2: Nota;
i: Interval
Определить интервал, образованный нотами n1 и n2 (n1 ≠ n2). Значение нот должны быть введены с клавиатуры (самостоятельно придумайте средство). Примечание: секунда - это интервал из двух соседних (по кругу) нот (например, ре и ми, си и до), терция - интервал через ноту (фа и ля, си и ре), кварта - через две ноты и т.д .

[Serge_Bliznykov]

функцию для получения интервала можете взять в этой теме:
[Delphi]: Процедуры и функции (перечисляемые типы данных: найти интервал между нотами)