Модуль CRT и DOS

[Seferus]

1.Сгенерировать последовательность звуков, представляющих гамм первой и второй октав.
2.Создать комбинированное меню со следующей информацией:

Группа Количество учащихся
Т-891 25
Т-892 25
Т-916 27
Т-917 25

3.Установить курсор в позицию окна X+1, Y+2.
4.Ввести текст с информацией о разработчиках программы.

[Zer0]

1)

uses crt;
const notesFq: array[1..14] of word=(261,293,329,349,392,440,493,523,587,659,698,783,880,987);
var i:integer;
begin
for i:=1 to 14 do begin
Sound(notesFq[i]);
delay(300);
end;
NoSound;
end.