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

Program wda; 
Var 
S,a,x:integer; 
Begin 
x:=0; 
While x<=5 do 
Begin 
Writeln('vvesti chisla'); 
Readln(a); 
S:=S+(a*a); 
Writeln('S=',S); 
x:=x+1; 
end; 
End. 
Вот вроде через паскаль получилось)