Составить программу в паскале с движущимся шариком по окружности.

uses crt, graph;

var grdr, grmd,i,j,g: integer;

begin

grdr: =detect;

initgraph(grdr, grmd,’c: \bp\bgi’);

setbkcolor(lightgray);

g: =getbkcolor;

i: =20; j: =20;

begin

setcolor(red);

setfillstyle(1,red);

fillellipse(i,j,5,5);

delay(3000);

setfillstyle(1,g);

fillellipse(i,j,5,5);

i: =i+random(3);

j: =j+random(2);

end;

readln;

end.

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

такой алгоритм является линейным, или последовательным. то есть в нём отсутствует   процесс передачи информации о состоянии объекта к объекту.