Написать программку, которая просит юзера ввести три числа и находит их

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

Непременно направить внимание на то, что даже если исходные числа мы брали целыми, переменной для среднего арифметического необходимо присвоить тип данных real, так как этой переменной присваивается формула, содержащая дробление, а оно на обилье integer употребляться не может.