Написать программу на pascalabc. найдите положительные и отрицательные целые числа в заданном численном значении n и определите сумму абсолютных значений.

begin

 var a := ArrRandom(ReadInteger('n='), -50, 50);

 a.Println;

 Writeln('Сумма отрицательных чисел равна ', a.Where(t -> t < 0).Sum);

 Writeln('Сумма положительных чисел равна ', a.Where(t -> t > 0).Sum);

 Write('Максимальное по модулю число ');

 var (m1, m2) := (a.Min, a.Max);

 if Abs(m1) > Abs(m2) then m1.Println

 else m2.Println

end.