Ответ:

program average;

var

num1, num2, num3: integer;

average: integer;

begin

writeln('Enter three numbers:');

readln(num1, num2, num3);

average := (num1 + num2 + num3) div 3;

writeln('The average of the three numbers is: ', average);

readln;

end.