Найдите сумму и количество элементов массива , попавших в интервал [a; b]. Границы интервала вводятся с клавиатуры Пожалуйста посчитайте задачу при помощи функции Язык : Pscal Abc

Var sum, cnt, i, n, a, b: integer;

a: array[1..50] of integer;

begin

Readln(n);

for i := 1 to n do read(a[i]);

readln(a,b);

for i := 1 to n do

if (a[i] >= a) and (a[i] <= b) then

begin

sum := sum + a[i];

inc(cnt);

end;

Writeln(sum, " ", cnt);

end.