Нужно написать программу ** delphi: вводится кол-во переменных с клавиатуры ** выходе 2...

Question

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

Answer 1

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