напишите программу, которая считывает с клавиатуры n чисел и затем выводит на экран сумму и среднее арифметическое отрицательных чисел. в паскаль

var i,n,nmb: integer;    dg,sm: real;begin  sm:=0;  nmb:=0;  write('n = ');  readln(n);  write('числа через пробел: ');  for i:=1 to n do  begin    read(dg);    if dg<0 then    begin      sm:=sm+dg;      nmb:=nmb+1;    end;    end;  writeln('сумма отрицательных чисел = ',sm);  writeln('среднее арифметическое = ',sm/nmb);end.