С клавиатуры вводится математическое значение. Определить какое из чисел 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.