Постройте код для следующего алфавита: 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.

если не сложно отметь как лучший ответ

Сори я уже поставил

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.