Даны 3 чимла найти среднее арифметическое из них паскаль

Var
a, b, c: integer;
s: real;

begin
writeln('Введите три числа');
readln(a);
readln(b);
readln(c);
s := (a + b + c) / 3;
writeln('Среднее арифметическое трех введенных чисел равно ', s);
end.