Значение 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.
В чем дело? Я не так понял?

[Bokul]

А как можно сделать чтобы ответ был в виде дроби(1/3;2/3)?

WriteLn(p, '/3');

Я добавил бы еще проверку:

uses crt;
var a,b,c,p:integer;
begin
clrscr;
write('Enter a,b,c: ');
readln(a,b,c);
p:=(a+b+c) mod 3;
Writeln;
if p=0 then
   writeln('Result: ',p)
else
   writeln('Result: ',p, '/3');
readln;
end.