Презентация, доклад на тему Оформление текста на экране в Pascal ABC

модуль CRT, который содержит набор программ (процедур), которые позволяют задавать цвет символов, очищать экран, устанавливать курсор в любую позицию экрана и др.
Экран при этом можно себе представить как таблицу из 25 строк и 80 столбцов. Каждая ячейка имеет 2 координаты – X и Y, где X – номер столбца, Y – номер строки. Строки нумеруются сверху вниз, столбцы – слева направо. Т.е. левый верхний угол экрана имеет координаты (1,1), правый верхний (80,1), а левый нижний (1,25).
Символы можно выводить на экран 16 различными цветами, которые кодируются числами от 0 до 15. Каждому коду соответствует свой цвет:

0 – Black
1 – Blue
2 – Green
3 – Cyan
4 – Red
5 – Magenta
6 – Brown
7 – Gray

8 – Light Gray
9 – Light Blue
10 – Light Green
11 – Light Cyan
12 – Light Red
13 – Light Magenta
14 – Yellow
15 – White

экран. Необходимо в начале программы объявить библиотечный модуль CRT. Начать следует словом uses.}
uses Crt;
Begin {Начало основной программы}
TextBackGround (3); {Вызов процедуры для выбора фонового цвета. «3» означает голубой}
ClrScr; {Процедура очистки экрана. Указав цвет фона до команды ClrScr, мы тем самым залили экран голубым цветом}
TextColor (14); {Процедура выбора цвета выдаваемых символов. В скобках указан номер выбранного цвета (жёлтый). Она не меняет цвет уже имеющихся символов.}
GoToXY (40,10); {Процедура установки курсора в точку экрана с координатами x=40, y=10}
Writeln (‘Всё отлично’); {Вывод текста в 10 строку, начиная с позиции 40}
Delay (1000) {Процедура временной задержки на 1000 мкс}
End.

Совет: Внимательно читайте комментарии, они находятся в фигурных скобках {}.
Замечание: Точка с запятой должна ставиться при перечислении инструкций. На последнем операторе Delay (1000) перечисление заканчивается, поэтому мы не поставили «;».

нижнем углах экрана. Каждое сообщение выводить своим цветом.
Написать программу, которая очищает экран и выводит слова red, green, blue, yellow каждое своим цветом в центр четвертей экрана (если экран условно разбить на 4 части).