Решить вопрос по паскалю

Вообщем проблемка простая достаточно..

задание1.

вероятность встреч. символов

требуется рассказать что делает в программе строка

if ch=a then begin b=b[i+1];

задание2. открытый ключ.

p:=3;

g:=11;

n:=b+g;

writeln(n);

d:=3;

e:=round(((p-1)*(g-1)+1)/d);

writeln(e);

x:=2;

y:=e;

c1:round (exp(y*ln(x))) mod/h);

writeln(c1);

x:=6;

y:=c;

c2:=round(exp(y*ln/d)))mod/h);

writeln(c2);

x:=4;

y:=c;

c3:=round(exp(y*ln/d)))mod/h);

writeln(c3);

m1:=round(exp(d*ln/c1)))mod/h);

writeln(m1);

m2:=round(exp(d*ln/c2)))mod/h);

writeln(m2);

m3:=round(exp(d*ln/c3)))mod/h);

writeln(m3);

end.

Вообще тут надо рассказать про шифрование и расшифровку. Возможно допустил ошибки когда переписывал, но программа вообще работала.

Тендер открытый, первый кто объяснит внятно - сделаю поощерение :)