Question

Составить программу которая из 3-х произвольных чисел наберет среднее и выведет его на экран

Answer 1

 var a,b,sum,c:real; begin  write();   readln(a,b,c); begin sum:=b+a+c;
 sum:=sum/3 end; writeln(sum); end.

Answer 2

А если среднее по наименованию, то еще проще var a,b,sum,c:real;
begin
write();
readln(a,b,c);
writeln(b);
end.