All pastes #962013 Raw Edit

Miscellany

public text v1 · immutable
#962013 ·published 2008-03-29 12:28 UTC
rendered paste body
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:3:2); end;
  Readln;
end.