[Drongo]

___Vampir___, так в приведённом вами списке, можно выводить все названия вершин. Так как здесь нет ни однй вершины ниже 3000 м. Могу сделать на С++. За вами перевод на паскаль.

Код:

//---------------------------------------------------------------------------
#include <iostream>
using namespace std;
int main()
{
   const int size = 16;
         int z;
   char *Vershina[size] = {"Эверест","Чогори","Канченджанга","Лхоцзе","Макалу",
                           "Дхаулагири","Манаслу","Чо Ойю","Нангапарбат",
                           "Аннапурна","Хидден-Пик","Броуд-Пик","Шиша Пангма",
                           "Гашербрум","Пик Кангбахен", "Кьяогелифенг"};
   int Visota[size] = {8848, 8611, 8598, 8511, 8481, 8167, 8156, 8153,
                       8125, 8091, 8068, 8047, 8046, 8035, 7902, 8611};

   for(int i = 0; i < size; i++)
      if(Visota[i] > 3000)
         cout << i + 1 << "." << Vershina[i] << " - " << Visota[i] << endl;

   cin>>z;
   return 0;
}
//---------------------------------------------------------------------------