Множества. Числа Фибоначчи.

[Ria]

Дано 100 целых чисел от 1 до 50. Определить, сколько
среди них чисел Фибоначчи и сколько чисел, первая значащая цифра
в десятичной записи которых 1 или 2.

что-то вообще не могу понять..помоготе плииз, кого не затруднит..

[Mad_Cat]

const f=[1,2,3,5,8,13,21,34];//числа Фибоначчи
      a1=[1,2,10..29];// числа, первая значащая цифрав десятичной записи которых 1 или 2
      n=100;
var i:integer;
	fc,c12:integer;
a:array[1..n] of byte;
	begin
randomize;
for i:=1 to n do
begin
a[i]:=random(50)+1;
if a[i] in f then inc(fc);
if a[i] in a1 then inc(c12);
write(a[i]:3);
if i mod 10=0 then writeln;
end;
writeln('чисел Фибоначчи:',fc);
writeln('чисел, первая значащая цифрав десятичной записи которых 1 или 2:',c12);
readln;
end.

20 27 2 34 35 45 23 34 35 15
23 3 28 2 19 28 7 34 7 31
11 22 10 43 2 17 20 39 2 20
28 40 50 31 47 23 39 10 13 39
20 24 48 33 14 24 19 6 36 44
41 37 6 1 46 23 11 16 14 33
30 40 6 10 20 48 16 45 23 15
15 25 39 38 22 12 44 13 9 18
25 6 32 22 25 34 45 13 9 39
43 28 19 49 26 41 36 1 2 10
чисел Фибоначчи:15
чисел, первая значащая цифрав десятичной записи которых 1 или 2:53