[maximprada]

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  N_el=5;
type
  F=array[0..N_el] of integer;

var
  n,i,b,a:integer;
  M:F;
begin

  write('input 5 elements = ');
  readln(n);
    for i:=1 to n do
    begin
      write('M[',i,']=');
      readln(M[i]);
    end;

begin
 b:= 0;
  if (M[i]>=-100) and (M[i]<=100)
  then
   b:=b+1;
 write('kolichesto znakov [-100,100]= ');
 write (b);
 readln;
end;

end.

Если есть желание помогите