Дан массив целых чисел. Найти количество тех элементов, значение которых положительны и не превосходят заданного натурального числа А.
(сделайте в паскале)

uses crt;const N=20;vari,A,x: integer;arr: array [1..N] of integer;beginclrscr;x:=0;write ('A=');readln (A);writeln ('Array: ');for i:=1 to N dobeginarr[i]:=random(41)-20;write (arr[i],' ');end;for i:=1 to N dobeginif (arr[i]>=0) and (arr[i]<=A) thenx:=x+1;end;writeln ();writeln ('Answer: ',x);readln ();end.