Program p1634;
Var x, max, count, count_max: integer;
Begin
max := -1;
count := 0;
Write('Введите число');
Read(x);
While x>0 Do Begin
If x=max Then count_max := count_max+1;
If x>max Then Begin
max := x;
count_max := 1
End;
count := count+1;
Write('Введите число');
Read(x)
End;
If count>0
Then Begin
WriteLn(' max' , max, ' count' , count_max);
If count_max>count/3 Then Writeln('Да')
Else Writeln('Нет')
End
Else WriteLn('последовательность пустая')
End.