Постройте код для следующего алфавита: a(0.45), b(0.15), c(0.3), d(0.1). в скобках указаны вероятности, с которыми встречаются символы данного алфавита.

Var n: integer; begin    randomize;    n := random (99)+1;    if (n>0)and(n<46)    then writeln('a');    if (n>60)and(n<91)    then writeln('c');    if (n>45)and(n<61)    then writeln('b');    if (n>90)    then writeln('d');readlnend.