Нужно написать программу на delphi: вводится кол-во переменных с клавиатуры на выходе 2 числа: сумма чисел, произведение квадратов. То есть "Введите кол-во переменных" 2 3 3 Сумма = 6 Произведение квадратов = 81

Консольное приложение:
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