Решить в программе паскаль: Вычислить среднюю оценку ученика по тестированию тр?

Var a, b, c:integer; begin readln(a, b, c); write((a+b+c)/3); end.