1) Вычислить сумму квадратов 10 чисел. Числа вводятся с клавиатуры2) Написать программу вычисления произведения элементов последовательности, заданной формулой: A=1 + (k+1) ^-2/2k-1

program zz1;

var a, k, i, s:integer; / / задаем переменные целого типа

b, p:real;

begin

for i:=1 to 10 do

begin

read (a);

s:=s + a*a;

end;

writeln ('сумма квадратов десяти введенных чисел = ', s); / / выводим ответ

write (' введите заданное k ');

read (k);

p:=1;

for i:=1 to k do

begin

b:=1 + (2*k-1) / (sqr (k+1));

p:=p * b;

end;

writeln ('произведение элементов последовательности = ', s); / / выводим ответ

end.