1.19.2 Delphi

Program Lab1192;

Uses
    System.SysUtils;

Var
    I : Integer;
    N : Integer;
    Sum : Real;
    IsCorrect : Boolean;

Begin
    WriteLn('Эта программа вычисляет сумму по формуле S от 1 до n 1/i^3');

    Repeat
        WriteLn('Введите число n от 1 до 200');
        IsCorrect := True;
        Try
            Readln(N);
        Except
            Writeln('Неверный тип данных');
            IsCorrect := False;
        End;
    Until IsCorrect;

    For I := 1 To N Do
    Begin
        Sum := Sum + 1/(i*i*i);
    End;

    Writeln('Сумма равна', Sum);
    Readln;

End.