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

Var a,b,c:integer; begin a:=random(10); writeln('a = ',a); b:=random(10); writeln('b = ',b); c:=random(10); writeln('c = ',c); writeln('Среднее арифметическое =  ',(a+b+c)/3); end. Пример: a = 4 b = 2 c = 9 Среднее арифметическое =  5