Var a,i,max:integer;
begin
max:=-30000;
for i:=1 to 5 do begin
readln(a);
if a>max then max:=a;
end;
writeln('Максимальное - ', max);
end.
Ответ: 4. Но т.к. тут надо минимум 20 символов, вот интересный факт: <span>Кошки эволюционировали в отдельную семью (Felidae) примерно 25 миллионов лет назад. С тех пор они распространялись по всему миру и менялись, чтобы соответствовать своей среде обитания. </span>
В данном случае используется не алфавитный подход к измерению информации (когда считаются символы), а содержательный - когда считаются события. Например, когда кидаем монетку у нас может получиться всего 2 события: орел или решка. Так как 2 - это 2 в степени 1, то это значит, что сообщение несет 1 бит информации. Так и здесь: после желтого у тебя возможно всего два события: красный или зеленый. Значит сообщение несет 1 бит информации.