BogDm_1

Var
    Y: Real; X: Integer;
Begin
    For X:= -3 To 3 Do Begin
      If X <> 0 Then Begin
        Y:= 11 / X + 14;
        WriteLn('X = ', X, '; Y = ', Y:7:3);
      End;
    End;
    ReadLn;
End.