На остановке останавливаются трамваи с разными номерами. Сообщение о том, что подошел трамвай № 13 несет 1 байт информации. Вероятность появления на остановке трамвая № 4 в четыре раза больше, чем для трамвая № 13. Сколько бит информации несет сообщение о появлении трамвая №4

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.

состояние тропосферы в данной местности и в данное время называеться погодой

var x1,x2,x3,s1,s2,s3: integer;

function sumofnumber(num: integer): integer;

var s: string;

i: integer;

begin

  s: =str(num);

  for i: = 1 to length(s) do

        sumofnumber: = sumofnumber+int(s[i]);

end;

begin

  read(x1,x2,x3);

  s1: =sumofnumber(x1);

  s2: =sumofnumber(x2);

  s3: =sumofnumber(x3);

  if s1> s2 and s1> s3 then writeln(x1);

  if s2> s1 and s2> s3 then writeln(x2);

  if s3> s2 and s3> s1 then writeln(x3);

end.

в правильности написания функции типов не уверенна.

если текст распознан, то да. т. е. наобходима программа разспознования fine reader