Задание по программированию 8 класс.Pascal. По холсту перемещаются два шарика разного цвета и разного радиуса,один -

uses    graphabc;              // подключаем графику. var    x, y : integer;        // объявляем переменные целочисленного типа.    label l;                  // объявляем метку. begin    setpenwidth(5);     // устанавливаем ширину линии.    l: x :=0;               // точка возврата после выхода из цикла.    repeat                  // начало цикла.        clearwindow;                               // очищаем окно.        setpencolor(clRed);                      // устанавливаем цвет линии.        Circle(20+2*x,30,20);                  // рисуем круг.        setpencolor(clGreen);                  // устанавливаем цвет линии.         Circle(580,130+x,50);                 // рисуем круг.        sleep(100);                                // делаем паузу 100 мсек.        x := x + 10;                              // увеличиваем щаг для рисования следующего круга.     until x = 300;                                // условие выхода из цикла.   goto l;                                           // переход на метку. end.