На паскале нужно сделать. с клавиатуры вводится n элементов массива целых чисел вывести количество чисел которые попадаются в диапозоне от 10 до 30

Program p1;

Uses crt;

Var A: array [1 ... 10] of integer;

i, k: integer;

Begin clrscr;

Writeln ('Введите элементы массива');

for i:=1 to 10 do

read (a[i]);

k:=0;

for i:=1 to 10 do

begin

if (a[i]>10) and (a[i]<30) then

k:=k+1;

end;

writeln ('Количество чисел в диапазоне (10; 30) = ', k);

Readln;

readkey;

end.