Составить программу которая из 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.