Нужно написать программу на 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