Дан файл f, компоненты которого являются действительными числами. Найти модуль суммы и квадрат произведения компонентов

var 
  f,f2:text; 
  p,u,s:real;
  
begin 
  Assign(f,'in.txt'); 
  reset(f);
  Assign(f2,'out.txt'); 
  rewrite(f2); 
  p:=1;
  u:=1;
  while not eof(f) do 
  begin 
    Read(f,s);
    p:=abs(p+s);
    u:=sqr(u*s);
    writeln(f2,s);
  end;
  close(f1);
  close(f2);
end.

Ваш код

var 
  f,f2:text; 
  p,u,s:real;
  
begin 
  Assign(f,'in.txt'); 
  reset(f);
  Assign(f2,'out.txt'); 
  rewrite(f2); 
  p:=1;
  u:=1;
  while not eof(f) do 
  begin 
    Read(f,s);
    p:=abs(p+s);
    u:=sqr(u*s);
    writeln(f2,s);
  end;
  close(f);
  close(f2);
end.

close(f);

var
  f,f2:text;
  p,u,s:real;
begin
  Assign(f,'in.txt');
  reset(f);
  Assign(f2,'out.txt');
  rewrite(f2);
  p:=1;//произведение
  s:=0;//сумма
  while not eof(f) do
   begin
    Read(f,u);
    p:=p*u;
    s:=s+u;
  end;
 p:=p*p;//квадрат произведения
 s:=abs(s);//модуль суммы
 close(f);
 writeln(f2,'Квадрат произведения=',p:0:3);
 writeln(f2,'Модуль суммы=',s:0:3);
 close(f2);
end.

begin
  var res :=
    ReadAllText('in.txt')
    .ToReals
    .Aggregate((0.0,1.0), (t,r)->(t[0]+r, t[1]*r) )
  ;
  
  Print(
    abs(res[0]),
    sqr(res[1])
  );
  
end.