Miscellany
public text v1 · immutableprogram Bevardë2;
var p:real;i:integer;
begin
p:=0;
for i:=1 to 100 do
begin
p:=p+1/(i*i);
WriteLn('p = ', p:6:4);
end;
Readln;
end.program Bevardë2;
var p:real;i:integer;
begin
p:=0;
for i:=1 to 100 do
begin
p:=p+1/(i*i);
WriteLn('p = ', p:6:4);
end;
Readln;
end.