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

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.