Разработка программ с использованием функций и процедур модуля GRAPH

[kurt_alex]

Нужна помощь с решением такой задачи
Задание :
1. Инициализацию графического режима организовать в виде отдельной процедуры с анализом GraphResult.
2. Определить размеры и центр экрана в графическом режиме.
3. Переместить курсор в точку с координатами (180,180) с помощью процедуры MoveTo и затем в точку (310,180) процедурой MoveRel.
4. Нарисовать в нижней , левой четверти экрана 150 точек , выбирая координаты и цвета случайным образом.
5. Очистить экран.
6. Нарисовать на экране множество линий разного стиля цвета , используя все возможные процедуры.
7. Определить положение графического курсора.
8. Перейти в текстовый режим и вывести на экран координаты графического курсора и размеры экрана. Вернуться в графический режим.
9. Разделить экран на четыре равные части.
10. В верхней , левой четверти нарисовать три окружности, имеющие общий центр и радиусы 24,28,32. Линии окружностей должны быть разного цвета.
11. В правой верхней и левой нижней четвертях аналогично п.10 нарисовать эллипсы и дуги (радиусы и углы выбрать самостоятельно).
12. В оставшейся четверти нарисовать 5 прямоугольников , имеющих линии контура различных стилей и толщины , причем для самого внешнего контура шаблон разработать самостоятельно.
13. Очистить экран.
14. Нарисовать несколько многоугольников , линии контуров которых должны иметь различный цвет.
15. Закрыть графический режим.
Примечание: перед выводом каждого нового изображения останавливать процесс решения для просмотра.