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

Dpi - количество точек на дюйм 1200dpi - в 1 погонном  дюйме 1200 точек (пикселей).1 дюйм =  2,54 см узнаем сколько точек по горизонтали и по вертикали изображения: 21÷2,54=8,26771653543 дюйма  ×1200=9921,25984251 пикселей по вертикали 29,7÷2,54=11,6929133858 дюйма  ×1200=14031,4960629 пикселей по горизонтали 14031,4960629×9921,25984251=139210118,419 пикселей всего в изображении n=512 цветов - мощность алфавита. n=2^i 512=2^9  ⇒ 9 битами кодируется 1 пиксель 139210118,419 ×9=1252891065,77 бит -  информационный объем   полученного графического файла. 1252891065,77 бит  ÷8=156611383,221 байт  ÷1024=152940,803926 кб  ÷1024=149,356 мб.

program raf105;

var

  dr: real;

  day: integer;

  a,b: boolean;

begin

  dr: = 0.75;

  while not(a) or not(b) do

  begin

    day: = day+1;

    dr: = dr + dr/100*160;

    dr: = dr - 0.6;

    if day = 6

      then begin

        writeln('а) через 6 дней в установке будет ',dr: 0: 2,' т. дрожжей');

        a: = true;

      end;

    if (dr > = 9) and not(b)

      then begin

        writeln('б) через ',day,' суток масса дрожжей достигнет порога 9 т.');

        b: = true;

      end;

  end;

end.

pascalabc 3.4.2