Значение Mod, помогите разобраться Опции

[Вацура]

Задачка:
Вычислить дробную часть среднего арифметического трех заданных вещественных чисел.
Я делал так:

uses crt;
var a,b,c,p:integer;
begin clrscr;
write('‚ўҐ¤ЁвҐ 3 зЁб« :'); readln(a,b,c);
p:=(a+b+c) mod 3;
Writeln;
Writeln('„а®Ў­  з бвм б।­ҐЈ®  аЁд¬ҐвЁзҐбЄ®Ј® 3 зЁбҐ« а ў­ : ',p);
readln;
end.

В учебнике написано, что mod это остаток от деления с остатком. Тоесть, как я понял,
11 mod 3 должно равняться 6666... .
Но когда ввожу значения (4,3,4), ответ получаеться 2.
В чем дело? Я не так понял?

[Pola]

Задачка:
Вычислить дробную часть среднего арифметического трех заданных вещественных чисел.

var a,b,c:real;
...

p:=frac((a+b+c)/3)