Напишите программу, которая вводит с клавиатуры 20 реальных чисел, и организовывает их хранение в массиве. После этого определяет сумму элементов, значение которых больше среднего арифметического элементов массива — Pascal(Паскаль)

const n = 10;
var
 a: array[1..n] of longint;
 i,sr,sum: longint;
begin
 for i:= 1 to n do begin
  a[i]:= random(20);
  sr:= sr + a[i];
 end;
 sr:= sr div n;
 for i:= 1 to n do
  if a[i] > sr then
   sum:= sum + a[i];
 writeln(sum);
end.