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