Найти среднее арифметическое минимального и максимального элементов из 10 введенных - Pascal ABC

Формулировка задачи:

1. Даны величины углов треугольника. Определить является ли это треугольник: а) остроугольным б) тупоугольным 2. Найти среднее арифметическое минимального и максимального элементов из 10 введенных. 3. Составить программу вычисления и печати значений функции Y=(sinx+1)cos4x. Значения аргументов задать в массиве X, состоящего из 10 элементов. Значения функции записать в массив Y.

Решение задачи: «Найти среднее арифметическое минимального и максимального элементов из 10 введенных»

Листинг программы

var a1,a2,a3:integer;
begin
writeln('Введите 3 угла');
readln(a1,a2,a3);
if (a1>90) or (a2>90) or (a3>90) then writeln('Тупоугольный!') else writeln('Остроугольный!');
end;

Объяснение кода листинга программы

Создается переменная a1 типа integer, которая будет использоваться для хранения введенного угла.
Создается переменная a2 типа integer, которая будет использоваться для хранения введенного угла.
Создается переменная a3 типа integer, которая будет использоваться для хранения введенного угла.
Выводится сообщение Введите 3 угла.
С помощью функции readln() с переменных a1, a2 и a3 считываются значения, которые сохраняются в соответствующих переменных.
Проверяется условие: если значение любой из переменных a1, a2 или a3 больше 90, то выводится сообщение Тупоугольный!. В противном случае выводится сообщение Остроугольный!.