Вычислить сумму квадратов положительных элементов массива - Free Pascal

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

Нужна программа для вычисления сумы квадратов плюсовых елементов чисел. Количество елементов масиву n (5<n<30) числа вводять с клавиатуры.

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

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

Const nmax=30;
Var A:array[1..nmax] of real;
    i,n:integer;
    s:real;
Begin
    Repeat
     write('N: ');
     readln(n);
    Until (n>5)and(n<nmax);
    s:=0;
    writeln('Введите ',n,' элементов');
    For i:=1 to n do
    Begin
      read(A[i]);
      if A[i]>0 then s:=s+sqr(A[i]);
    End;
    if s<>0 then writeln('Сумма квадратов положительных элементов = ',s:0:2)
     else writeln('Нет положительных элементов');
    readln;
End.

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

Объявляются переменные:
- A: массив из nmax элементов типа real;
- i, n: целочисленные переменные для цикла;
- s: переменная для хранения суммы квадратов положительных элементов.
Цикл повторяется до тех пор, пока значение n не станет больше 5 и меньше nmax.
После каждой итерации цикла считывается новое значение n и выводится сообщение с просьбой ввести n элементов.
В каждой итерации цикла считывается значение каждого элемента массива A.
Если значение элемента A[i] больше нуля, то его квадрат прибавляется к переменной s.
После окончания цикла выводится сообщение с суммой квадратов положительных элементов массива A, если таковые имеются. Если сумма равна нулю, выводится сообщение о том, что положительных элементов нет.
Программа завершается после нажатия клавиши Enter.