Дан одномерный массив

Program mm; var a: array [1… 10] of real; i: integer; s: real; beginfor 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. Если что, пиши в личку.