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

Question

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

Answer 1

//Pascal ABC.NET v3.0 сборка 1111

Var
 f:text;
 s,a,i:integer;
 p:int64;
begin
randomize;
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.