Консольное приложение:
program Pr1; 

{$APPTYPE CONSOLE} 

var 
  N, a, i, s: integer; 
  p: double; 

begin 
  WriteLn('Введите кол-во переменных '); 
  ReadLn(N); 

  s:=0;
  p:=1;
  for i:=1 to N do begin 
    ReadLn(a); 
    s:=s+a;
    p:=p*a*a;
  end; 
  WriteLn( 'Сумма = ',s);
  WriteLn('Произведение квадратов = ',p); 
  ReadLn; 
end.

Пример:
Введите кол-во переменных 
5
4
6
2
7
3
Сумма = 22
Произведение квадратов = 1016064