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

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