Нужен скриншот работы данной проги. Кто не знает, используйте Snagit 9. Сделал бы сам но не запускается нормально.

Program Salut;
Uses Graph, Crt;
Var
n,y,x,a,b,c,f,e,i,Gd,Gm: integer;
Begin
Randomize; { Инициируем генератор случайных чисел }
Gd := Detect;
InitGraph(Gd,Gm,'d:\Files\Diomidov\tp7\BIN\'); {Включаем графический режим} 
if GraphResult <> grOk then Halt(1);
y:=round(GetMaxY/2); { координаты центра экрана }
x:=round(GetMaxX/2);
n:=200; { количество повторов }
c:=50; 
Repeat
a:=random(c)+10;
b:=random(c)+10;
e:=5+random(20);
f:=random(120);
for i:=1 to n do
begin
Delay(50);
SetColor(round(i/10)+1);
Circle(round((y-i/e)*sin(i/a))+x,
round((y/2-i/e)*cos(i/b))+y,
f-round(c*sin(i/e)));
end;
delay(65535);
for i:=1 to n do
begin
SetColor(0);
Circle(round((y-i/e)*sin(i/a))+x,
round((y/2-i/e)*cos(i/b))+y,
f-round(c*sin(i/e)));
end;
Until KeyPressed;
readln;
CloseGraph;
 
End.