А фотку учебника? Ну или автора
Диаграмма/*выбираете тип*/ставите координаты)))готово
Подпрограмму
procedure rez(x,y:real):real;
begin
... rez=xxxxxx'
end;
redln(y);
z:=rez(x,y);
writeln(z);
.....
Вероятность вытянуть красный шар 1/4
Количество информации в сообщении о том, что вытянут именно красный составляет log(4)/log(2)=2 бита