program try;
const
n=7;
m=4;
var
mas :array[1..n,1..m] of integer;
i,j,k :integer;
a,c :real;
begin
k:=0;
writeln('Введите а');
readln(a);
writeln('Введите с');
readln(c);
writeln('Введите массив');
for i:=1 to n do
for j:=1 to m do
begin
readln(mas[i,j]);
if (mas[i,j]>a) and (mas[i,j]<c) then
k:=k+1;
end;
writeln('Количество ',k);
end.