Составить алгоритм нахождения меньшего из 2 чисел (в паскале)

Var a,b: longint; begin readln(a,b); if a

Program v1; var a,b,c: real; begin readln (a,b,c); if c > a+b then writeln ( 'такого треугольника не существует'); if a > c+b then writeln ( 'такого треугольника не существует'); if b> a+c then writeln ( 'такого треугольника не существует'); if a=b and a=c   then writeln ('этот треугольник равносторонний'); if a=b or a=c or b=c then writeln ('этот треугольник равнобедренный'); if a = scrt ( b*b + c*c) then writeln ('этот треугольник прямоугольный'); if b = scrt (a*a + c*c) then writeln ('этот треугольник прямоугольный'); if c = scrt (a*a + b*b) then writeln ('этот треугольник прямоугольный'); end. 

1)   среднее значение -  это сумма элементов деленная на кол-во элементов. поскольку в формуле указан диапазон в1: d1 то рассматриваются элементы в первом (1) столбце и строки в, с, d. т.е. всего 3 элемента. следовательно их сумма будет равна среднее значение умножить кол-во элементов 4  * 3 = 12.  во второй формуле диапазон увеличен на 1 ячейку. и мы знаем сумму 4 элементов и сумму 3 элементов. искомый элемент - это разница  9 - 12 = -3 ответ  -3 2)   аналогичные рассуждения. ответ   -11 3)   ответ 7