Введите с клавиатуры 6 чисел и определите их среднее арефметическое репит

uses crt;vara,b,c,d,e,f:integer;g:real;beginwrite ('Введите числа a,b,c,d,e,f-');read (a,b,c,d,e,f);g:=(a+b+c+d+e+f);writeln ('Среднее арифметическое этих цифр=',g);end.