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

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.

04₁₀ = 100₂

10₁₀ = 1010₂

1996₁₀ = 11111001100₂

режим разметки страницы,режим структуры,режим чтения.режим веб документа-