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

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.

текст: happy new year, dear содержит 30 символов. при кодировании текста с acsii каждый символ кодиреутся 8 битами или 1 байтом, следовательно

30 символов = 30 байт или  30 * 8 = 240 бит

по центру каждой стены  по  стулу  а также в каждый угол по стулу