Написать программу нахождения арифмитического значений пяти чисел если оно боль?

Var   i:integer; s,a:real; Begin   Write('Вводите числа через Enter ');   for i:= 1 to 5 do   Begin      Read(a);      s:=s+a;   End;   Writeln;   write('Среднее арифметическое этих чисел ');   if s/5>6 then write('больше 6 и равняется ',s/5,', поэтому увеличиваю на 3 - ',s/5+3) else write('не больше 6, поэтому оставляю как есть ',s/5); End.