Написать б\с и программу ввода трех целых чисел и вычисления их среднего арифметического

Program n1; 
var a,b,c,s:integer; 
begin 
readln(a); 
readln(b); 
readln(c); 
s:=(a+b+c)/3; 
writeln('среднее арифметическое=',s); 
end.