дан одномерный массив. найти сумму элементов массива, значение которых падает в отрезок [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.

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