С: нужно составить программу среднего за экзамен по предмету для абитуриента. использовать паскаль, при этом учитывать, что существует 3 эксперта, которые ставят оценки по данному предмету

Var a,b,c:byte;
var d:real;
begin
Write('Первая оценка: ');
Readln(a);
Write('Вторая оценка: ');
Readln(b);
Write('Третья оценка: ');
Readln(c);
d:=Round((a+b+c)/3);
Write('Средняя оценка: ',d);
end.