Помогите пожалуйста-20,,,,,,,,,,,

Question

Помогите пожалуйста-20,,,,,,,,,,,

---

Answer 1

Const
  n=16;
var
  a:array[1..n] of integer;
  i,k:integer;
begin
  for i:=1 to n do
    a[i]:=0;
  while True do
    begin
    read(k);
    if (k<1) or (k>n) then break;
    Inc(a[k]);
    end;
  k:=1;
  for i:=2 to n do
    if a[i]>a[k] then k:=i;
  Writeln(k)
end.


Вводим пока не будет указано значение меньше 1 или больше 16.