Расшифруйте зашифрованное сообщение. Для этого:  Ознакомьтесь с алгоритмом шифровки.
 Продумайте и запишите алгоритм расшифровки.
 Расшифруйте сообщение по составленному вами алгоритму.

Недрост ойено тасла нет ливкому чемло векпутр атифтьп одроб норсабу часлына влы чисклен изя, копто рыесмож нобрыло бысдо вепри тьмраши нре.
(Г.В. Лейбниц, математик)

Использованный алгоритм шифровки
(известный под названием "метод лишней буквы"):
1. Разбейте значащие символы сообщения на группы с четным числом букв в каждой (пробелы в данном алгоритме не считаются значащими символами).
2. Сделайте в середине каждой группы промежуток.
3. Произвольно вставьте в промежутки лишние буквы.​

Uses GraphABC;

const MaxShar=50;

type shar = record

           x,y:integer;

           dx,dy:integer;

           end;

var i:byte;

   x,y,r:integer;

   shars: array[1..MaxShar] of shar;

begin

randomize;

setwindowsize(500,500);

centerwindow;

r:=10;

setpenwidth(3);

for i:=1 to MaxShar do

with shars[i] do

begin

 x:=7+r+random(500-2*r-14);

 y:=7+r+random(500-2*r-14);

 dx:=random(8) + 1;

 dy:=random(8) + 1;

end;

lockdrawing;

repeat

clearwindow;

for i:=1 to MaxShar do

with shars[i] do

begin

 x:=x+dx;

 if (x+r+dx>=493) or (x-r+dx<=7) then dx:=-dx;

 y:=y+dy;

 if (y+r+dy>=493) or (y-r+dy<=7) then dy:=-dy;

 setpencolor(clBlue);

 setbrushcolor(clBlue);

 circle(x,y,r);

end;

setpencolor(clBlack);

setpenwidth(3);

moveto(5,5);

lineto(495,5);

lineto(495,495);

lineto(5,495);

lineto(5,5);

sleep(1);

redraw;

until false;

end.

Примечание:

В конце программы есть команда sleep(), чем больше в ней значение, тем меньше скорость шариков. Также её можно просто убрать, тогда скорость будет максимальной.