Склавиатуры вводится значение. определить какое из чисел 10 или 15 входит в него чаще?

Var
i: integer;
p: integer;
mas: array[0..10] of innteger;
begin
Writeln('Введите 10 чисел:');
Readln(mas[0], mas[1], mas[2], mas[3], mas[4], mas[5], mas[6], mas[7], mas[8], mas[9]);
Здесь нужно прописать условие (можно с циклом). Если mas0=mas1=mas2 и т.д.
end;
end;
end.