Прошу напишите программу для скрина

Question

Нужна программа для скрина тема Вложенные циклы 
задание Дано натуральное n. получить: 
<img src="//content.foto.my.mail.ru/mail/diablo654/_answers/i-224.jpg" >

задание Дано натуральное n. получить: _____ Это не надо!!!

Надо что бы при запуске ответ был точно не 0

Kurbon Otambekov · Accepted Answer

var 
i,j:integer; 
s,p,t:real; 
begin 
s:=0; 
p:=1; 
for i:=1 to 40 do begin 
for j:=1 to 30 do begin 
t:=1/(i+sqr(j)); 
p:=p*t; 
end; 
s:=s+p; 
end; 
writeln('s=',s); 
end.