Дан рост трех друзей. Как написать программу которая определяет их среднийрост на языке PascalABC?

program zz1;

var a, b, c:integer; / / задаем переменные целого типа

begin

write (' введите первый рост '); / / вводим с клавиатуры первое число

read (a);

write (' введите второй рост '); / / вводим с клавиатуры второе число

read (b);

write (' введите третий рост '); / / вводим с клавиатуры третье число

read (c);

writeln (' средний рост трех друзей = ', (a + b + c) / 3); / / выводим ответ

end.