Question

найдите среднее арифметическое трёх чисел, ведённых с клавиатуры
в паскаль

Answer 1

var a, b, c,rez: real;
begin
writeln( 'Введите три числа' );
read ( a, b, c );
rez := ( a + b + c ) / 3 
writeln ('ср. знач.=', rez:0:2 ); 
end.