Написать код программы для следующей : даны 10 целых положительных чисел. найти сумму тех из них которые меньше 15. числа вводим с клавиатуры ( в цикле )

Писал уже: var input, num, nulls, positive, negative, i: integer; begin write('введите кол-во чисел: '); readln(input); for i : = 1 to input do begin   write('введите число номером ', i, ': ');   readln(num);   if num = 0 then inc(nulls, 1);   //if num < 0 then inc(negative, 1);   //if num > 0 then inc(positive, 1); end; writeln('кол-во нулей: ', nulls); //writeln('кол-во положительных чисел: ', positive) //writeln('кол-во отрицательных чисел: ', negative); end.

Явам уже же дал пример, могли бы сами под себя подстроить, вот, ловите: \\ var input, num, nulls, positive, negative, i: integer; begin write('введите кол-во чисел: '); readln(input); for i : = 1 to input do begin   write('введите число номером ', i, ': ');   readln(num);   if num = 0 then inc(nulls, 1);   if num < 0 then inc(negative, 1);   if num > 0 then inc(positive, 1); end; writeln('кол-во нулей: ', nulls); writeln('кол-во положительных чисел: ', positive); writeln('кол-во отрицательных чисел: ', negative); end.