Запросить с клавиатуры в цикле 5 любых целых чисел, найти их сумму и среднее арифметическое, результаты вывести на экран

Program Summa;
 Var n, i, sum: Integer;
       sr: Real;
  Begin
   sum:=0;
   sr:=0;
    For i:=5 downto 1 do
     Begin
      WriteLn('Vvedite chislo');
      ReadLn(n);
      sum:=sum+n;
     End;
   sr:=sum/5;
 Writeln('Summa ravna = ' , sum);
 Writeln('Srednee znachenie = ' , sr);
End.