Найти среднее арифметическое трех целых случайных чисел, принадлежащих промежутку {0; 10)

program zz1;

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

i:real; / / задаем переменную не целого типа

begin

a:=random (10); / / получаем первое случайное число

b:=random (10); / / получаем первое случайное число

c:=random (10); / / получаем первое случайное число

i: = (a + b + c) / 3; / / вычисляем среднее арифметическое полученных трех случайных чисел

write (' среднее арифметическое трех целых случайных чисел = ', I:6:2); / / выводим ответ в формате шесть знаков для всего числа и два знака после точки

end.