Записать в файл любые 10 чисел, используя функцию случайных чисел. Найти модуль суммы и квадрат произведения этих чисел
_______
Через Pascal ABC

//Pascal ABC.NET v3.0 сборка 1111Var f:text; s,a,i:integer; p:int64;beginrandomize;p:=1; for i:=1 to 10 do begin;  a:=random(11)-3;  write(a:4);  p:=p*a;  s:=s+a; end;p:=sqr(p);s:=abs(s);assign(f,'text.txt');rewrite(f);writeln(f,p);writeln(f,s);close(f);end.