Запросить с клавиатуры в цикле 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.