Ответ:

Объяснение:

program average;

var

 a, b, c: real;

 average: real;

begin

 writeln('Enter three numbers:');

 readln(a, b, c);

 average := (a + b + c) / 3;

 writeln('The average of ', a:0:2, ', ', b:0:2, ', and ', c:0:2, ' is ', average:0:2);

 readln;

end.