Написать программу на я/п Паскаль : среднее арифметическое пяти произвольных чисел

var a,b,c,d,e,sum:integer;beginb:=random(-10000;10000);a:=random(-10000;10000);c:=random(-10000;10000);d:=random(-10000;10000);e:=random(-10000;10000);sum:=a+b+c+d+e;write(sum/5);end.

var a, b, c, d, e: real;beginwrite('Введите 5 чисел через пробел: '); readln(a, b, c, d, e);writeln('Среднее арифметическое = ', (a+b+c+d+e)/5);end.