Hint 2077

program Project10;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
  source: string;
  target, res: Integer;
begin
  try
    source := '50';
{$HINTS OFF}
    Val(source, target, res);   // Hint 2077
{$HINTS ON}
    if res = 0 then
      WriteLn('Success');
  ReadLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.