Составте программу на языке программирования паскаль абс. даны 3 числа. найдите среднее арифметическое этих чисел

Program f1cda001;
var a, b, c: Integer;
begin
writeln('Введите 1 число:');
readln(a);
writeln('Введите 2 число:');
readln(b);
writeln('Введите 3 число:');
readln(c);
writeln('Среднее арифметическое чисел: ',(a+b+c)/3);
end.