Люди, пожалуйста, напишите код для этой задачи

P.I.M.P., с какой проблемой ты столкнулся при попытке решить эту задачу? Что не получается?

С помощью чего решить эту задачу? с помощью цикла, или как? Мне бы узнать примерный план решения, а дальше я сам.

С помощью цикла, есте-но.
Алгоритм:
Для каждого элемента смотришь какая у него первая цифра, и если нужная, то выводишь это число на экран

Дак это понятно. Но как сделать чтобы прграмма проверяла, совпадает ли данная цифра с первой в эл-ах массива?

  for i := 1 to n do begin
    T := a[i];
    while T > 9 do T := T div 10;
    if T = y then write(a[i]:4);
  end;