Модуль Graph. Нарисовать овал, который движется по вертикали. При достижении границы меняет цвет

Tenned

Нарисовать на экране овал зеленого цвета, который движется по вертикали по центру экрана. При достижении границы экрана овал меняет цвет на розовый и начинает движение в обратном направлении. Программа завершается нажатием любой клавиши. Рисование фигуры оформить в виде процедуры.
1 ответ

Tenned

Tenned, см. здесь... и пользуйтесь поиском, помогает, правда =)