Дано трёхзначное число. определить: является ли сумма его цифр двузначным числом

var a,s: integer;

begin

  read(a);

  repeat

      s: =s+a mod 10;

      a: =a div 10

  until a=10;

  if (s< 100) and (s> 9) then write('yes')

  else write('no');

end.

Sub z()       range(cells(1, 1), cells(100,       n1=5       n2=3       n3=4       k = 1       a = initmatrix(n1, k, 1)       k = k + n1 + 2       b = initmatrix(n2, k, 1)       k = k + n2 + 2       c = initmatrix(n3, k, 1) end sub function initmatrix(n, cx, cy)       redim a(n, n)       for i = lbound(a, 1) to ubound(a, 1)               for j = lbound(a, 2) to ubound(a, 2)                       a(i, j) = rnd * 200 - 100                       cells(cx + i, cy + j) = a(i, j)               next       next       cells(cx, cy + n + 1) = "positiveaverage ="       cells(cx, cy + n + 2) = positiveaverage(a)       initmatrix = a end function function positiveaverage(a)       for i = lbound(a, 1) to ubound(a, 1)               for j = lbound(a, 2) to ubound(a, 2)                       if a(i, j) > 0 then                               s = s + a(i, j)                               k = k + 1                       end if               next       next       positiveaverage = s / k end function

А) v = d * t * i * k v - информационный объем файла d - частота дискретизации t - время звучания i - глубина кодирования 1 сигнала k - количество каналов d1 = 8 кгц = 8000 гц t = 1 мин = 60 секунд k = 1 канал (моно-) i1 = 16 бит = 2 байта v1 = 8000 гц  * 60 c * 2 байта * 1  =  960000 байт =  937,5 килобайт = 0,91 мегабайт - информационный объем 1 звукового файла d2 = 24 кгц = 24000 гц t = 1 мин = 60 секунд k = 1 канал (моно-) i2 = 16 бит = 2 байта v2 = 24000 гц  * 60 c * 2 байта * 1 =  2880000 байт =  2812,5 килобайт =  2,75 мегабайт -  информационный объем 2 звукового файла детская песня - колыбельная медведицы - 2,09 мегабайт меньше 2 объема на 0,66 мб и больше 1 объема на 1,18 мб песня валентины толкуновой тебя любила - 1,05 мб больше 1 объема на 0,14  мб, меньше второго объема на 1,7 мб