Ввести 4 числа, подсчитать количество чисел принадлежащих интервалу [-1 ; 5).

Var i,prin,a: Integer;
begin
prin:=0;
for i:=1 to 4 do
begin
WriteLn('введите число');
readln(a);
if(a>=-1) and(a<5) then inc(prin);
end;
WriteLn();
WriteLn('кол-во чисел принадлеж: ',prin);
end.