求平均数

program avgscore;
var
　　a, b, c, s : real;
begin
　　write('please input three numbers: ');
　　readln(a, b, c);
　　s := (a+b+c)/3;
　　writeln('average score: ');
　　writeln(s:4:1);
end.