program Project2;
{$APPTYPE CONSOLE}
uses
   System.SysUtils;
const MaxNum : integer = 1000;
var
   I,N : integer;
   Sum : real;
   IsCorrect : Boolean;
begin
   writeln ('Введите число суммирований');
   repeat
      try
         readln (N);
         if N > 0 then
            IsCorrect := True
         else
            writeln('Ошибка ввода, введите целое положительное число (от 0 до ', MaxNum,')');
      except
         writeln ('Ошибка ввода, введите целое положительное число (от 0 до ', MaxNum,')');
      end;
   until IsCorrect;
   Sum := 1;
   for I := 2 to N do
      Sum := Sum + 1/(I * I * I);
   writeln ('Сумма равна ',Sum:5:3);
   readln(n);
end.