Составьте программу подсчёта числа различных элементов одномерного массива A(Q),не принадлежащих диапозону чисел [R,P]
Желательно с блок схемой 
Пожалуйста очень надо 

ой харооош

vara:array[1..20] of integer;i,r,p,q,s:integer;begins:=0;writeln('vvedite kolichestvo elementov massiva-Q');readln(q);writeln('vvedite R');readln(r);writeln('vvedite P');readln(p);if (p<r) or (p=r) thenbeginwriteln('neverniy otrezok [R,P]');exit;end elsefor i:=1 to q dobeginwriteln('vvedite ',i,'-y element massiva');readln(a[i]);if (a[i]>=r) and (a[i]<=p) then s:=s+1;end;writeln('kollichestvo chisel<',r,' no >',p,' =',s);readln;end.