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

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