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

[Altana]

Помогите объяснить каждую команду пожалуйста

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

Program pr1;
Uses CRT, graph;
var gd,gm:integer;
n,x1,y1,x2,y2,i:integer;
a:char;

Begin
gd:=0;
Initgraph(gd,gm,'c:\TP7\bgi');

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(200);
Setcolor(0);
Rectangle(x1,y1,x2,y2);
end;

Readkey;
Closegraph;
End.

[Delphi_ProGer]

Так...по скорому...думаю болле-менее понятно

Program pr1;
Uses CRT, graph;{подключаем нужные модули}
var gd,gm:integer;{переменные для процедуры инициализации графики}
n,x1,y1,x2,y2,i:integer; {для квадрата}
a:char;{хз для чего}

Begin
gd:=0;
Initgraph(gd,gm,'c:\TP7\bgi');{инициализация граф. режыма}

While not keypressed do {пока не нажата клавиша - делаем...}
begin
n:=random(100); {рандомное число от 0 до 99}
x1:=320-n; {следуюющие строки задают координаты квадрата}
y1:=240-n;
x2:=320+n;
y2:=240+n;

i:=random(16); {тот же рандом}
Setcolor(i); {получений рандомный номер - это номер цвета, здесь присваиваем цвет, т.е. устанавливаем его}
Rectangle(x1,y1,x2,y2); {рисуем квадрат }
Delay(200); {задержка в 200мс}
Setcolor(0); {ставим цвет в чёрный}
Rectangle(x1,y1,x2,y2); {снова рисуем квадрат уже черным цветом, т.е. он будет невидимым на черном фоне}
end;

Readkey;{чтобы перед выходом из програмы мы считали символ}
Closegraph; {закрываем роботу с графикой, или как то так...}
End.

И там мы выйдем из программы не по Еск, а по любому нажатию клавиши!

[Altana]

Спасибо)) Кстати да, переменная char тут не нужна :D Я просто хотела ord(a)=27 сделать, забыла её удались)