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

Предыдущий
вопрос Следующий
вопрос

program average_height;

var
height1, height2, height3, average_height: real;

begin
writeln('Enter the height of the first friend: ');
readln(height1);

writeln('Enter the height of the second friend: ');
readln(height2);
writeln('Enter the height of the third friend: ');
readln(height3);
average_height := (height1 + height2 + height3) / 3;
writeln('The average height of the three friends is: ', average_height);

end.