Помогите с этой задачей по Pascal

Question

Найти площадь лицевой стороны шаблона образованного соединением из N уменьшающихся квадратов, имеющих длину сторон А, А/2...,А/N . Найти также вес шаблона, если N известна его толщина и удельный вес

Юлия Маноилова · Accepted Answer

readln(a,n,d,p); 
s:=1; 
for j:=2 to n do s:=s+1.0/sqr(n); 
s:=s*sqr(a); 
m:=s*d/p; 
writeln(s,m);

Neo Джаборов · Answer

pascal фигня, с++ збс)