При нажатии клавиши Shift одновременно с другой буквой вводится прописная буква, в то время как если нажать клавишу Caps Lock единожды, можно вводить текст прописными буквами без зажатия (соответственно, чтобы отключить ввод прописных клавиш необходимо еще раз нажать на Caps Lock)
Может быть, так: uses graphABC; Begin setfontcolor(clRed); writeln('Белеет парус одинокой'); setfontcolor(clBlue); writeln('В тумане моря голубом!..'); setfontcolor(clDarkOrchid); writeln('Что ищет он в стране далекой?'); setfontcolor(clDeepSkyBlue); writeln('Что кинул он в краю родном?..'); setfontcolor(clDeepPink); writeln('Играют волны - ветер свищет,'); setfontcolor(clMagenta); writeln('И мачта гнётся и скрыпит...'); setfontcolor(clDarkGreen); writeln('Увы! он счастия не ищет'); setfontcolor(clLime); writeln('И не от счастия бежит!'); setfontcolor(clBrown); writeln('Под ним струя светлей лазури,'); setfontcolor(clIndigo); writeln('Над ним луч солнца золотой...') End.
При нажатии клавиши Shift одновременно с другой буквой вводится прописная буква, в то время как если нажать клавишу Caps Lock единожды, можно вводить текст прописными буквами без зажатия (соответственно, чтобы отключить ввод прописных клавиш необходимо еще раз нажать на Caps Lock)