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

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

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