Turbo Pascal, графики

[Altana]

Через процедуру сделать мигающий квадрат.. Т.е в центре экрана появляется квадрат, затем исчезает, затем появляется другой, но уже другого цвета и другого размера, затем исчезает, затем другой и т.д. Это продолжается, пока пользователь не нажмет Esc.
help me, please(

[Hacker19_90]

и в чем же заключается ваша не возможность сделать это задание?
Здрасти кстати!

[Altana]

Ага, здравствуйте)
В общем, нарисовать квадрат в центре не проблема) но как сделать цикл, чтобы как бы координаты увеличивались и потом уменьшались? Пыталась сделать, но он у меня зацикливался... Плюс ещё и через процедуру сделать...
Да и уровень десятого класса, команды типа GetMaxX и т.п я не знаю.. Сложно в общем

[Altana]

Поможете, м?(

[Niro]

ну примерно так, учитывая что задание несколько не конкретно

randomize;
while not keypressed do
  begin
    n:= random (100);
    x1:= 320 - n;
    y1:= 240 - n;
    x2:= 320 + n;
    y2:= 240 + n;

    i:= random (16);
    setcolor (i);
    rectangle (x1, y1, x2, y2);

    delay (2000);
    setcolor (0);
    rectangle (x1, y1, x2, y2);
  end;

[Altana]

спасибо большое)