{* Задача 19 *}

Unit ZADACH19;
Interface
Implementation
Begin
 writeln('Известен рост тридцати спортсменов, сколько из них имеют рост выше 170см. Можно ли сформировать баскетбольную команду? (оговорка:баскетбольную команду можно сформировать только если число спортсменов, с ростом 170 см, больше 5 человек.) ');
End.

Program zadach19;

Uses zadach19.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  ar    : Array [0..29] Of longint;
  i     : longint;
  count : longint;
Begin
  count := 0;
  For i := 0 To 29 Do {* Цикл для i => [0 .. 29] *}
  Begin
    read(a[i]); {ввод чисел}
    If (a[i] > 170) Then
      inc(count); {* count++ *}
  End;
  If count > = 5 Then
    writeln('Yes')
  Else writeln('No');
End.