Задача по информатике

Question

Определить сумму квадратов элементов последовательности an=(n+2)/2n, где n измениться от 1 до 8. Вывести на экран таблицу значений n и an Колонки таблицы озаглавить

lara_207 · Accepted Answer

var 
n:integer; 
a,s:real; 
begin 
S:=0; 
writeln(' n', ' ', ' an '); 
For n:=1 to 8 do 
begin 
a:=(n+2)/(2*n); 
s:=s+a*a; 
writeln(n:5,' ', a:5:3) 
end; 
writeln('Сумма =', s:5:3) 
end.

denis_13228 · Answer

на чем пишем?