перевод кода с паскаля на пайтон

Param5. Описать процедуру Smooth1(A, N), выполняющую сглаживание вещественного массива A размера N следующим образом: элемент AK заменяется на среднее арифметическое первых K исходных элементов массива A. Массив A является входным и выходным параметром. С помощью этой процедуры выполнить пятикратное сглаживание данного массива A размера N, выводя результаты каждого сглаживания. program Param5;

type
 RArray = array[1..10] of real;

var
 A:RArray;
 Na,i:integer;

Procedure Smooth_1(var A:RArray; N:integer);
 var i,k:integer;
     TempA:RArray;
begin
 for k:=1 to N do
  begin
   for i:=1 to k do TempA[k]:=TempA[k]+A[i];
   TempA[k]:=TempA[k]/k;
  end;
 A:=TempA;
end;

Procedure EnterArray(var A:RArray; var N:integer);
var i:integer;
begin
 Write('Size:');
 Readln(N);
 for i:=1 to N do
  begin
   Write(i,': ');
   Readln(A[i]);
  end;
end;

Procedure InputArray(var A:RArray; var N:integer);
var i:integer;
begin
 Writeln('---');
 for i:=1 to N do Writeln(i,': ',A[i]);
 Writeln('---');
end;

begin
 EnterArray(A,Na);
 for i:=1 to 5 do
  begin
   Smooth_1(A,Na);
   InputArray(A,Na);
  end;
 Readln;
end.