Вы - водитель грузовика с открытым кузовом. В кузове два груза: пианино и холодильник. Пианино необходимо доставить в институт, холодильник в общежитие. В каждое из этих мест ведет отдельная дорога, начинающаяся от перекрестка, на котором Вы стоите, других дорог в мире нет. Известно, что по дороге в институт есть мост, на котором действует ограничение максимальной допустимой массы автомобиля с грузом, а по дороге в общежитие есть туннель с ограничением высоты. Требуется определить, возможно ли доставить грузы или нет (разумеется, сгружать их, где попало, Вам запрещено). Формат входных данных
На вход подается 8 чисел натуральных чисел (каждое < 100), каждое в новой строке, в следующем порядке: вес грузовика без груза, высота платформы кузова (на которой стоят грузы), вес пианино, высота пианино, вес холодильника, высота холодильника, максимальный допустимый вес на мосту, максимальная допустимая высота в туннеле

Примечание: пианино и холодильник заведомо возвышаются над кабиной грузовика, т.е. высоту кабины можно в расчет не принимать.

Формат выходных данных
Вывести YES если доставка возможна и NO в противном случае.

Program Massiv;
{$APPTYPE CONSOLE}
uses  SysUtils;

var  i: integer; // счетчик 
 a: array[1..10] of Integer; // объявляем массив из 10 целых элементов
begin
// Вводим элементы массива с клавиатуры 
for i:=1 to 10 do  // цикл  
begin     
  writeln('vvedite element massiva i nagmite >>ENTER');     
  write('a[',i,']=');     
  write(a[i]);     
  read(a[i])   
end; 
i:=1;
j:=0;// счетчик для поиска 3-го элемента 
  repeat 
    if a[i]<=0   
      then
        inc(i) // переходим к следующему элементу        
      else     
        begin       
          inc(j); // отмечаем найденный положительный элемент      
          inc(i)  // переходим к следующему элементу     
        end; 
   until (j=3) or (i=11); // До тех пор пока не найден 3-й положительный элемент
                                  // либо не проверен весь массив
 if j=3   
   then // есть как минимум три положительных элемента  в массиве      
     writeln('3 Pologitelniy element a[',i-1,']=', a[i-1])   
   else // в массиве меньше трех положительных элементов     
     writeln('Net 3 pologitelnogo eltmenta = ');
readln; 
readln
  { TODO -oUser -cConsole Main : Insert code here }
end.

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),0,9); a.Println;
  a.GroupBy(t->t).Select(t->(t.Key,t.Count)).OrderBy(t->t[0])
      .Foreach(t->Writeln(t[0],' - ',t[1]))
end.

Пример
n= 100
5 7 6 0 1 3 1 4 9 2 8 7 5 2 1 6 1 6 6 6 1 0 1 2 4 9 7 0 5 6 2 7 3 3 1 5 7 5 9 8 1 8 7 8 8 7 3 2 4 4 5 6 8 3 9 4 5 3 6 2 6 0 9 3 9 0 4 2 1 6 9 6 7 7 5 3 3 3 3 7 6 4 5 0 0 5 8 0 4 6 9 3 8 6 1 0 9 3 8 7
0 - 9
1 - 10
2 - 7
3 - 13
4 - 8
5 - 10
6 - 14
7 - 11
8 - 9
9 - 9