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