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