Пользователь создал сообщение из 128 символов в кодировке кои-8, в которой каждый символ кодируется 8 битами. после редактирования информационный объём сообщения составил 1280 бит. определите, сколько символов добавилось в сообщение, если его кодировка не изменилась. 1) 160 2) 128 3) 35 4) 32

program xxx;

  var n, c, d, e, s : integer;

begin

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

    readln(n);

    c: = n div 100;

    d: =(n div 10) mod 10;

    e: = n mod 10;

    s: = c + d + e;

    writeln('сумма чисел =', s);

    readln

end.

вот проверила, так работает. нормально?

program maxmin; var    a, b, c: integer;     max, min: integer; beginwriteln('введите три числа.'); read(a,b,c); {вводи числа через пробел}max: =a; if(b> max) then max: =b; if(c> max) then max: =c; min: =a; if(b< min) then min: =b; if(c< min) then min: =c; writeln('разность наибольшего и наименьшего чисел равна ',max-min); end.