Лабораторная работа № 7. 4 вариант

Дана программа, решающая определенную задачу.
Проделать следующую работу: исполнить алгоритм при 2-3 наборах данных. Запишите исходные данные, промежуточные данные и результат работы для каждого из выбранных наборов значений величин. Сформулировать условие задачи, которую решает данная программа.
Примечание. При формулировании условия задачи в качестве образцов формулировки взять те задачи, которые вы решаете. В частности, из условия однозначно должно быть понятно, что дано и что требуется получить.
           Var a, b, c, d, m, n: integer;
           Begin
                     Write ('введите натуральные числа a, b, c: ');
                    Readln (a, b, c);
                    m:=a; n:=b;
                     while m<>n do
                         if m>n then m:=m-n else n:=n-m;
                     n:=c;
                     while m<>n do
                         if m>n then m:=m-n else n:=n-m;
                     if m=1 then writeln('взаимно простые') else writeln('нет')
           End.       
№ 2.
Требовалось написать программу, при выполнении которой с клавиатуры вводится натуральное число, не превосходящее 108, и выводится его первая (старшая) цифра. Ученик написал такую программу:
var n: longint;
begin
read(n);
while n>10 do begin
  n := n mod 10
end;
write(n);
end.
Последовательно выполните следующее.

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

Для каждой ошибки выпишите строку, в которой она допущена, и приведите эту же строку в исправленном виде.
Обратите внимание: вам нужно исправить приведённую программу, а не написать свою. Вы можете только заменять ошибочные строки, но не можете удалять строки или добавлять новые. Заменять следует только ошибочные строки: за исправления, внесённые в строки, не содержащие ошибок, баллы будут снижаться.
№ 3. Решить задачу с использованием цикла while
Дан числовой ряд и некоторое число eps. Найти сумму тех членов ряда, модуль которых больше или равен заданному eps.

№ 4. Дан числовой ряд и некоторое число e. Найти сумму тех членов ряда, модуль которых больше или равен заданному e.
Все задания решены на Pascal