Помогите пожалуйста люди добрые, буду очень благодарен

program qwe;

var a,b,c:integer;

s:real;

begin

readln (a,b,c);

s:=(a+b+c)/3;

writeln (s);

readln;

end.