program task_4;
uses
   System.SysUtils;
var
   IsCorrect: Boolean;
   Temp, N ,I: Integer;
   Arr: array [0..19] of Integer;
begin
   Writeln('Эта программа сглаживает массив');
   repeat
      try
         Writeln('Введите количество членов массива(не менее 3 и не более 20)');
         Readln(N);
         if (N > 20) or (N < 3) then
            IsCorrect := False
         else
            IsCorrect := True
      except
         Writeln('Здесь ошибка, введите число!');
         IsCorrect:=False;
      end;
   until(isCorrect);
   N := N - 1;
   for I := 0 to N do
   repeat
      try
         Writeln('Введите ', (I + 1) ,'-й элемент массива');
         Readln(Arr[I]);
         IsCorrect:=True
      except
         Writeln('Здесь ошибка, введите число!');
         IsCorrect:=False;
      end;
   until(IsCorrect);
   N := N - 1;
   for I := 1 to N do
   begin
      Temp := Arr[i - 1];
      Arr[i] := (Temp + Arr[I] + Arr[I + 1]) div 3;
   end;
   N := N + 1;
   Writeln('Полученный сглаженный массив');
   for I := 0 to N do
      Write(Arr[I]);
   Readln;
end.