write ('Алгоритми і блок-схеми');
gotoxy (30,15);
write ('ПРОГРАМА');
gotoxy (30,16);
write ('Текстові приклади');
gotoxy (30,17);
write ('Керівництво користувачу');
gotoxy (30,18);
write ('Висновок');
gotoxy (30,19);
write ('Список літератури'); {Це все менюшки}
gotoxy (26,10);
write ('>>>');
gotoxy (25,10);
repeat
a: = readkey;
if a = chr (80) then begin {рух курсора вниз}
b: = wherey;
gotoxy (26, b);
write ('');
if b> = 19 then b: = 9;
gotoxy (26, b +1);
write ('>>>');
gotoxy (25, b +1);
sound (3000);
delay (1000);
nosound;
end;
if a = chr (72) then begin {рух курсора вгору}
b: = wherey;
gotoxy (26, b);
write ('');
if b <= 10 then b: = 20;
gotoxy (26, b-1);
write ('>>>');
gotoxy (25, b-1);
sound (4000);
delay (1000);
nosound;
end;
if a = chr (13) then begin {Опитування клавіші ENTER}
b: = wherey;
if b = 19 then begin {Список літератури}
sound (3000);
delay (1000);
nosound;
clrscr;
gotoxy (30, b);
write ('Книжка по Турбо-Паскалю');
repeat
a: = readkey;
until a = chr (13);
sound (4000);
delay (1000);
nosound;
goto 1;
end;
if b = 10 then begin {Введення}
sound (3000);
delay (1000);
nosound;
clrscr;
gotoxy (30, b);
writeln ('Основною метою даного курсового проекту');
gotoxy (30, b +1);
writeln ('є закріплення і демонстрація знань,');
gotoxy (30, b +2);
writeln ('отриманих при вивченні курсу інформатики');
repeat
a: = readkey;
until a = chr (13);
sound (4000);
delay (1000);
nosound;
goto 1;
end;
if b = 11 then begin {Постановка завдання}
sound (3000);
delay (1000);
nosound;
clrscr;
gotoxy (30, b);
write ('Зробити гру: леталку-стрілялку');
repeat
a: = readkey;
until a = chr (13);
sound (4000);
delay (1000);
nosound;
goto 1;
end;
if b = 18 then begin {Висновок}
sound (3000);
delay (1000);
nosound;
clrscr;
gotoxy (30, b);
write ('Мені сподобалася моя прога :-)');
repeat
a: = readkey;
until a = chr (13);
sound (4000);
delay (1000);
nosound;
goto 1;
end;
if b = 17 then begin {керівниц...
