В центре экрана нарисуйте эллипс, закрашенный цветом LightGreen, всю остальную площадь экрана сделайте фиолетовой. - Pascal

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

помогите пожалуйста!!!уже не знаю что делать....ничего в графическом не понимаю...заранее спасибо!! 1. В центре экрана нарисуйте эллипс, закрашенный цветом LightGreen, всю остальную площадь экрана сделайте фиолетовой. 2. С помощью динамической переменной выведите в верхней части экрана текст “Изучайте Паскаль ”, движущийся горизонтально.

Решение задачи: «В центре экрана нарисуйте эллипс, закрашенный цветом LightGreen, всю остальную площадь экрана сделайте фиолетовой.»

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

uses crt;
var t:integer;
procedure stroka;
var t:integer;
    begin
    t:=80;
    repeat
    gotoxy(t,1);
    textcolor(lightgreen);
    write('Изучайте Паскаль!!!');
    delay(100);
    clrscr;
    t:=t-1;
    if t=1 then t:=80;
    until keypressed;
   end;
begin
clrscr;
stroka ;
readln;
end.

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

В начале кода используется директива uses, которая подключает библиотеку crt.
Переменная t инициализируется значением 80.
Создается процедура stroka, которая будет выполняться рекурсивно.
Внутри процедуры stroka переменная t уменьшается на 1.
Если значение переменной t равно 1, то она снова увеличивается на 1 до тех пор, пока не станет равным 80.
Выводится строка 'Изучайте Паскаль!!!', используя цвет текста LightGreen.
Вызывается функция delay, которая задерживает выполнение программы на 100 миллисекунд.
С помощью функции clrscr очищается экран.
Вызывается процедура stroka.
Выводится строка 'Изучайте Паскаль!!!', используя цвет текста LightGreen.
Запускается цикл, пока не будет нажата клавиша.
После нажатия клавиши вызывается функция clrscr, чтобы очистить экран.
Программа завершается вызовом функции readln.