Нужно написать программу на 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.Пример:Введите кол-во переменных 546273Сумма = 22Произведение квадратов = 1016064