Найти количество элементов, лежащих в интервале от е до π

uses crt;
const e=2.7;
p=3.14;
var m:array [1..200] of real;
i,k,l,n:byte;
begin
writeln('vvedite kolichestvo chisel:');
readln(n);
for i:=1 to n do begin
write(i,'-e=');
readln(m[i]);
if (m[i]>e) and (m[i]<p) then inc (k)
else inc(l);
end;
clrscr;
for i:=1 to n do
write(m[i]:7:2);
writeln;
writeln('zdes ', k, ' chisel lejaschih v intervale i ', l, ' chisel za ego predelami');
readln;
end.

writeln('vvedite kolichestvo chisel:');
readln(n);

write(i,'-e=');
readln(m[i]);

m:array [1..200] of real;

Program an4ix;
uses crt;
const n=30;
e=2.7;
p=3.14;
Var  a:array [1..n] of real;
i,k,l:byte; {или intege}
Begin
k:=0; L:=0;
write ('Vvedite a(i)');
for i:=1 to n do;
readln (a[i]);
a[i]:=random (15);
if (a[i]>e) and (m[i]<p) then
k:=k+1 else L:=L+1;
writeln ('k=',k:3,'L=',L:3);
end.

for i:=1 to n do;

for i:=1 to n do;
readln (a[i]);
a[i]:=random (15);

const n=30;

uses crt;
const e=2.7;
p=3.14;
var m:array [1..200] of real;
i,k,l:byte;
n:integer;
begin
writeln('vvedite kolichestvo chisel:');
readln(n);
while n>200 do begin
writeln('chisel v massive bolshe 200 bit ne mojet. vvedite kolichestvo chisel<=200');
readln(n);
end;
randomize;
for i:=1 to n do begin
m[i]:=-20+random(50);
if (m[i]>e) and (m[i]<p) then inc (k)
else inc(l);
end;
clrscr;
for i:=1 to n do
write(m[i]:9:2);
writeln;
writeln('zdes ', k, ' chisel lejaschih v intervale i ', l, ' chisel za ego predelami');
readln;
end.