Лабораторная работа № 7. Циклы с пред- и постусловием Вариант 8 Pascal

I. Дана программа, решающая определенную задачу.
Проделать следующую работу: исполнить алгоритм при 2-3 наборах данных. Запишите исходные данные, промежуточные данные и результат работы для каждого из выбранных наборов значений величин. Сформулировать условие задачи, которую решает данная программа.
Примечание. При формулировании условия задачи в качестве образцов формулировки взять те задачи, которые вы решаете. В частности, из условия однозначно должно быть понятно, что дано и что требуется получить.
           Var n: integer; mi, ma: 0..9;
           Begin
                     Write ('введите натуральное число: '); Readln (n);
                 mi:=9; ma:=0;
                     while n<>0 do
                     begin
                        if n mod 10 < mi then mi:= n mod 10;
                        if n mod 10 > ma then ma:= n mod 10;
                        n := n div 10
                     end;
                     writeln('Результат: ', mi+ma)
           End.       

II. Выполнить тренировочное задание ЕГЭ по информатике и ИКТ[1]

1. Требовалось написать программу, при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 109, и выводится сумма цифр этого числа.   Программист торопился и написал программу неправильно:

var N: longint;
    sum, d: integer;
begin
  readln(N);
  sum := 1;
  while N > 0 do begin
    d := N mod 10;
    N := N div 10;
    sum := d;
  end;
  writeln(sum);
end.
Последовательно выполните следующее.

1. Напишите, что выведет эта программа при вводе числа 256.
2. Приведите пример такого трёхзначного числа, при вводе которого программа выдаёт правильный результат.
3. Найдите все ошибки в этой программе (их может быть одна или несколько). Для каждой ошибки:

1) выпишите строку, в которой сделана ошибка;
2) укажите, как исправить ошибку, т. е. приведите правильный вариант строки.