Дан массив целых чисел А [10]. Найти количество трехзначных чисел, содержащих в себе цифру 7. . Диапазон элементов от 1 до 1000. Если задача решается написанием программы, то написать лучше в Паскале. Спасибо!

var a, b, x1, x2, x3, c, n, d, i, g :integer;    s :array [1..10000] of integer; begin readln (n); for i:=1 to n do    begin     readln (s[i]);     a:=s[i];     if (a>99) and (a<1000) then        begin        x1:=a div 100;        x2:=a div 10 mod 10;        x3:=a mod 10;        if (x1=7) or (x2=7) or (x3=7) then inc(c);        end    end;     writeln (c); end. P.S. Надеюсь на благодарность и лучший ответ.

uses crt; const N=10; var a:array [1..N] of integer;     x,k:integer; begin      k:=0;      for x:=1 to 10 do      begin           a[x]:=random(1000)+1;           writeln('a[',x,']:',a[x]);           if (a[x]>=100) and (a[x]<=999) then           if (a[x] mod 10=7) or (a[x] div 100=7)              or (a[x] div 10 mod 10=7) then inc(k);      end;      writeln('Количество трехзначных элементов, содержащих цифру 7:',k); end.