Процедура с выводом цвета crt - Pascal

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

Процедура запрашивает оценки по трём предметам и цвет и выводит данным цветом.(использовать модуль crt)(красный синий голубой)

Решение задачи: «Процедура с выводом цвета crt»

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

uses crt;
procedure ocenka(a,n:byte;cv:integer);
begin
textcolor(0);
write('Введите оценку ',n,' oc=');
textcolor(cv);
readln(a);
end;
var a,b,c:byte;
begin
ocenka(a,1,4);
ocenka(b,2,1);
ocenka(c,3,9)
end.

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

Название процедуры: ocenka
- Параметры:
  - a (тип: byte) - переменная для оценки
  - n (тип: byte) - номер оценки
  - cv (тип: integer) - цвет текста
В процедуре ocenka устанавливается цвет текста на черный (0)
Печатается строка Введите оценку [номер оценки] oc= в черном цвете
Цвет текста изменяется на цвет, указанный в переменной cv
Происходит ввод значения в переменную a
В основной программе объявляются переменные a, b и c типа byte
Вызывается процедура ocenka с параметрами: a (переменная), 1 (номер оценки), 4 (цвет текста)
Вызывается процедура ocenka с параметрами: b (переменная), 2 (номер оценки), 1 (цвет текста)
Вызывается процедура ocenka с параметрами: c (переменная), 3 (номер оценки), 9 (цвет текста)