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

const
  n = 100;

var
  a: array [1 .. n] of integer;
  i, nFib, n12: integer;

begin
  for i := 1 to n do
    a[i] := Random(50) + 1;
  for i := 1 to n do
    Write(a[i]:4);
  WriteLn;
  nFib := 0;
  n12 := 0;
  for i := 1 to 100 do
  begin
    if a[i] in [0, 1, 2, 3, 5, 8, 13, 21, 34] then
      Inc(nFib);
    if a[i] in [1, 2, 10 .. 29] then
      Inc(n12);
  end;
  WriteLn('Чисел Фибоначчи: ', nFib);
  WriteLn('Чисел на 1 и 2 : ', n12);
  ReadLn

end.