Составить программу нахождения среднего арифметического трех целых случайных чисел, принадлежащих
промежутку [0; 10).

uses crt;vara,b,c:integer;d:real;beginrandomize;a:=random(0,10);b:=random(0,10);c:=random(0,10);d:=(a+b+c)/3; writeln('Среднее арифметическое ',a,', ',b,', ',c,'= ',d);end.