SlepoiKrot

Untitled

Dec 25th, 2017
88
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program C;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7. var
  8. n: int64;
  9. i: integer;
  10. sum: double;
  11. begin
  12. readln (n);
  13. sum := 0;
  14. for i := 1 to n do begin
  15. sum := sum + sqrt (8) + i * 2;
  16. end;
  17. writeln (sum:0:5);
  18. readln;
  19. readln;
  20. end.
RAW Paste Data