Вещественные числа: Найти сумму чисел больше 5 - Pascal ABC

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

Помогите с задачкой. Срочно надо до завтра.

X(n) - Вещественные числа. Найти сумму чисел больше 5.

Заранее спасибо

Решение задачи: «Вещественные числа: Найти сумму чисел больше 5»

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

Var
  x: Array [1..100] of Real;
  i,n: Integer;
  s: Real;
BEGIN
Write('Введите кол-во чисел: ');
Readln(n);
For i:=1 to n do
begin
  Write('X[',i,']= ');
  Readln(x[i]);
  If x[i]>5 Then
  s:=s+x[i];
end;
Writeln('Сумма чисел, больших 5 = ',s:2:2);
Readln
END.

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

Объявляются переменные: массив вещественных чисел x размером 100, целочисленные переменные i и n, а также переменная s типа вещественное число.
Пользователю предлагается ввести количество чисел, для которых необходимо найти сумму.
В цикле от 1 до n происходит чтение вещественных чисел из стандартного ввода и сохранение их в массиве x.
Если очередное число из массива больше 5, то оно прибавляется к переменной s.
После окончания цикла выводится сумма чисел, больших 5, с точностью до двух знаков после запятой.