Помогите плиЗз решить задачу на движующиеся Фигуры, Нарисовать движущийся прямоугольник Опции

[6ac9k]

Задача звучит так:
Нарисовать прямоугольник, движующийся по диогоналям экрана.



Сообщение отредактировано: 6ac9k - 10.12.2006 4:06

[6ac9k]

program kvadrat;
uses crt;
var
x,y,dx,dy:integer;
begin
TextBackground(0);
ClrScr;
x:=60;
y:=5;
dx:=-1;
dy:=1;
repeat
X := x+dx;
Y := y+dy;
Window(X, Y, X + 5, Y + 3);
TextBackground(7);
ClrScr;
delay(20000);
TextBackground(0);
ClrScr;
until KeyPressed;
end.

у меня получилось так..не знаю как задать чтоб прямоугольник ездил по диогоналям экрана