Ввести количество отрезков и их длины; найти, сколько треугольников можно составить из этих отрезков - Pascal ABC

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

надо написать такую программу: пользователь вводит количество отрезков и их длины, и надо найти сколько треугольников можно составить из этих отрезков, используя подпрограммы

Решение задачи: «Ввести количество отрезков и их длины; найти, сколько треугольников можно составить из этих отрезков»

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

type mas=array[1..100] of real;
function trg(a:mas;n:byte):byte;
var i,j,k,q:byte;
begin
q:=0;
for i:=1 to n-2 do
for j:=i+1 to n-1 do
for k:=j+1 to n do
if(a[i]+a[j]>a[k])and(a[i]+a[k]>a[j])and(a[j]+a[k]>a[i]) then q:=q+1;
trg:=q;
end;
var s,o:integer;
    p : mas;
Begin
Writeln('Введите количество отрезков');
readln (s);
Writeln('Введите длины этих отрезков через пробел');
For o:=1 to s do
read(p[o]);
writeln;
write('Количество треугольников=',trg(p,s));
end.

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

Создается тип данных mas, который представляет собой массив из 100 элементов типа real.
Определяется функция trg, которая принимает массив a и байт n в качестве параметров. Функция использует три вложенных цикла для проверки, можно ли составить треугольник из отрезков. Если условие выполняется, то переменная q увеличивается на 1. В конце функция возвращает значение q.
Создается переменная s, которая представляет собой количество отрезков, введенных пользователем.
Создается переменная o, которая представляет собой номер текущего отрезка.
Пользователю предлагается ввести длины отрезков. Для каждого отрезка вводится его длина и сохраняется в соответствующий элемент массива p.
Вызывается функция trg, передавая ей массив a и количество отрезков s. Результат функции выводится на экран.