дан одномерный массив.найти сумму элементов массива,значение которых падает в отрезок [2;5] (Массив предварительно заполнить с клавиатуры)

Program mm;

var a: array [1..10] of real; i: integer; s: real;

begin

for i:=1 to 10 do begin

    Writeln("Введите элемент номер ",i); read(a[i]);

                         end;

for i:=1 to 10 do

  if (a[i]>=2) and (a[i]<=5) then s:=s+a[i];

Writeln(s); readln;

end.

Если что, пиши в личку.