Дан фрагмент программки ( необходимо составить целую программу ) ПАСКАЛЬcount:=

Program basketbolisti;

var

 a: array [1..1000] of integer;

 count, i, n: integer;

begin

 count := 0;

 writeln('Введите количество баскетболистов');

 readln(N);  

 for i := 1 to N do

 begin

   writeln('Введите рост ', i,' баскетболиста');

   readln(a[i]);

   if (180 lt; A[i]) and (A[i] lt; 190) then

     count := count + 1;

 end;

 writeln(count);  

end.