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

program zz1;

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

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

begin

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

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

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

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

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

end.